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Noch universeller 
und noch komfortabler... 


Betriebssysteme 
DOSS.3 

DiversiDOS 2-c, 4-c, 
BroDOS 1,0214 0 
Pascal 1.1, 1.2 
CRINE2207 223.226 


SLOT-Unabhängig 


ik 





Anschlußfertig 


Die bisherigen Vorzüge 
bleiben erhalten, wie 


Autopatch-Boot 
automatische Erkennung und 
Erweiterung der Betriebssysteme 
während des Bootvorgangs 
(Betriebssystem auf der Boot- 
Diskette bleibt unverändert) 








für Applell,/e... 


erphi 

Doppellaufwerk DL 280 

2 Laufwerke 

mit je 640 kB formatiert 

im Gehäuse incl. 

erphi 

Autopatch-Controller AFDC 3 
Handbuch und Diskette mit 
Dienstprogrammen 


| Verkaufspreis incl. MwSt. 


DM 1.298,— 


erphi 

Floppy-Subsystem FSS 280 
für kommerzielle Anwendungen 
2 Laufwerke 

mit je 640 kB formatiert 

im Gehäuse mit eigener 
Stromversorgung incl. 

erphi 

Autopatch-Controller AFDC 3 
Handbuch und Diskette mit 
Dienstprogrammen 
Verkaufspreis incl. MwSt. 

DM 1.698,— 


ı Originalsystem-Boot 


Von herkömmlichen Apple®- 
Disketten (unabhängig 

vom Laufwerksfiormat) 
weiterhin möglich 


Problemloses Übertragen 
herkömmlicher Apple®-Software 
auf Disketten höherer Kapazität 
durch SIM 35-Hilfsprogramm 
(simuliert 35-Spur-Laufwerk 
unabhängig vom tatsächlichen 
Laufwerksformat) 


Dammweg 3 

D-8011 Großhelfendorf 
Telefon (08095) 441 
Telex 528021 erphi d 





editorial 


Kyan-Club 

Obwohl wir Kyan-Pascal für eine hervor- 
ragende Pascal-Implementierung für 
den Apple II halten, ist die Resonanz 
doch größer, als wir erwartet haben, 
denn in Kürze werden wir den 500. 
Besteller begrüßen dürfen. Dies gibt 
uns die Möglichkeit, nicht nur den Preis 
von DM 170,- für die Version 2.0 über 
den Anmeldeschluß hinaus zu halten, 
sondern Ihnen zudem einen erweiter- 
ten Service in Form eines informellen 
Kyan-Clubs anzubieten. Was ist darun- 
ter zu verstehen? 

Wer Kyan-Pascal über unseren Soft- 
ware-Service bestellt, wird automatisch 
Kyan-Club-Mitglied und kann damit bei 
Bedarf folgende Leistungen in An- 
spruch nehmen: 

1. Wenn Sie Kontakt zu anderen Kyan- 
Besitzern aufnehmen wollen, so brau- 
chen Sie uns nur Ihre Erlaubnis zur 
Aufnahme Ihrer Anschrift in unsere 
Kyan-Liste zu geben. Im Gegenzug 
erhalten Sie von uns kostenlos ein 
nach Postleitzahlen sortiertes Ver- 
zeichnis aller Kyan-Kontaktsuchenden. 


Sie können dann beispielsweise örtli- 
che Treffen vereinbaren oder tele- 
fonisch Tips und Tricks austauschen. 
2. Alle Kyan-Toolkits, die teils von der 
Firma Kyan-Software und teils von 
unserem eigenen Software-Service 
entwickelt werden, können Sie zu 
Club-Sonderpreisen erwerben, die 
deutlich unter den jeweiligen Normal- 
preisen liegen werden. 

Weitere Details zu diesen Sonderlei- 
stungen entnehmen Sie bitte unserem 
Rundschreiben, das wir in diesen 
Tagen verschickt haben. Da Sie sicher- 
lich bereits ungeduldig auf Kyan-Pascal 
warten, haben wir darin allen Früh- 
bestellern die Altversion 1.2 kostenlos 
angeboten, denn die beachtlich erwei- 
terte Version 2.0, zu der uns bislang 
nur die „Beta-Version“ vorliegt, wird 
erst Ende März erscheinen. 


Sanın EDER 


Ulrich Stiehi 
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von Ulrich Stiehl 


Am 21.1.1986 wurde in München der 
neue Macintosh präsentiert, der ab Febru- 
ar lieferbar ist und an die Stelle des alten 
Macintosh treten soll, der vor exakt zwei 
Jahren am 25.1.1984 in Frankfurt vorge- 
stellt wurde, aber erst sechs Monate spä- 
ter ab etwa Juni 1984 erhältlich war. 

Der neue Mac verhält sich zum alten wie 
der Apple Ile zum Il+, d.h. der neue Mac- 
intosh = Macintosh Plus = Mac Plus = 
Mac+ ist kein völlig neues, sondern nur 
ein erweitertes und verbessertes Modell, 
das zum Alt-Modell weitgehend kompati- 
bel ist. Um es vorweg zu sagen: Der 
Mac+ hinterließ einen durchaus ausge- 
reiften und positiven Eindruck. Allerdings 
haben wir noch keinen eigenen Mac+ in 
der Redaktion, so daß ein spezieller Lei- 
stungstest noch aussteht. Im übrigen wer- 
den wir den Macintosh im Peeker jetzt 
ausführlicher als bisher behandeln. 


1. Produktpalette 


Bevor wir auf den Mac+ im Detail einge- 
hen, möchten wir zunächst die langfristige 
Produktplanung der Firma Apple umrei- 
Ben, die für jede Produktkategorie ein ofie- 
nes und ein geschlossenes System vor- 
sieht. Die offenen Systeme („Open Sy- 
stems“) sind erweiterbar (Slot-Konzept 
usw.), die geschlossenen Systeme 
(„Closed Systems“) sind es nicht: 

1. Beim Apple Il gilt der Ile als offenes und 
der IIc als geschlossenes System. 
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Der neue 


Macintosh 


Erste Eindrücke zum Mac Plus 


2. Beim Macintosh ist der Mac+ ein ge- 
schlossenes System. Der offene „Slot- 
Mac“ soll laut dem Apple-Geschäftsführer 
R.M.Deja in etwa einem Jahr folgen. 

3. Als Nachfolgemodell zum Apple II soll 
zunächst ein offenes System „in 6 bis 18 
Monaten“ (R.M.Deja) erscheinen. Die De- 
tails, die man einige Tage nach der Mün- 
chener Pressekonferenz im „Chip“ (2/ 
1986, S. 10f.) über den „Apple Ilx“ lesen 
konnte, wurden nicht bestätigt. Kein Wun- 
der, denn dem alten (!) Macintosh wurde 
beispielsweise ein 320K-Laufwerk atte- 
stiert, was die Vermutung nahelegt, daß 
beidem „exklusiven Blick hinter die Kulis- 
sen” aus Versehen ein Fremdgerät er- 
späht wurde. 


2. Der alte Mac 


Als wir vor genau einem Jahr detaillierte 
Leistungstests über den Macintosh veröf- 
fentlichten (Heft 3/85, S. 44-51), hagelten 
ohnmächtige Schimpftiraden aus dem La- 
ger der Firma Apple und ihrer Händler auf 
den Peeker nieder, onnmächtig deshalb, 
weil jeder Mac-Besitzer die Tests exakt 
nachvollziehen konnte. Die Mängel waren 
jedoch zu offenkundig, als daß man sie 
hätte verschweigen können. So wurde 
beispielsweise gezeigt, daß ein simpler 
Directory-Befehl in bezug auf einen 
Datenträger mit 100 Dateien beim alten 
Mac 500 Sekunden dauerte, während je- 
der andere Mikrocomputer für denselben 
Befehl nur etwa 5 Sekunden benötigte. 


Man bezichtigte uns des Äuslotens von 
Extremsituationen, die in der Praxis selbst 
bei 20M-Festplatten niemals vorkommen 
würden. Weit gefehlt! Denn im nachhinein 
erfährt unsere Mac-Kritik ihre volle Bestä- 
tigung just durch die Firma Apple selbst, 
die mit dem neuen Mac exakt das ausbü- 
gelt, was wir am alten Mac kritisiert haben. 
So hat beispielsweise der neue Mac jetzt 
nicht mehr Pseudo-Subdirectories, son- 
dern echte Subdirectories, womit die Un- 
zulänglichkeit des alten Directory-Befehls 
behoben wurde. 


3, Technisches zum Mac+ 


Der neue Mac zeichnet sich durch folgen- 
de Erweiterungen aus: 

— 1024K statt 128K bzw. 512K RAM 

— 128K statt 64K ROM 

— Zusätzliche Schnittstelie 

— DIN-Tastatur 

— 800K- statt 40OK-Drives 

— Hierarchischer Finder 

Über weitere Neuerungen wie „Cache"“- 
RAM-Speicher, Laserwriter Plus mit Origi- 
nal-Schriftarten usw. werden wir zu einem 
späteren Zeitpunkt berichten. 


3.1. 1-Megabyte-RAM 


Wie erinnerlich, wurde der alte Mac zu- 
nächst mit 123K RAM ausgeliefert. Weni- 
ge Monate nach der Mac-Einführung {im 
Juni 1984 in Deutschland bzw. im Januar 
1984 in den USA) sah man sich genötigt, 
eine 512K-Speichererweiterung anzubie- 
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ten. Die Tatsache, daß die ICs nicht ge- 
sockelt waren und somit die gesamte Plati- 
ne ausgetauscht werden mußte, läßt den 
Schluß zu, daß man zunächst keine Spei- 
chererweiterung für den 128K-Mac ins 
Auge gefaßt hatte, denn die Lisa war noch 
bis zum Frühjahr 1985 lieferbar und somit 
war eine Produktdifferenzierung zu dem 
teureren Modell erforderlich. Es zeigte 
sich jedoch alsbald, daß ein 128K-Mac 
praktisch unbrauchbar war, weil erstens 
der für damalige Verhältnisse gigantische 
Bildschirmspeicher (ca. 22K) einschließ- 
lich des Hintergrundspeichers für nicht- 
aktive Fenster sowie zweitens die „auf die 
schnelle“ in Hochsprachen erstellten An- 
wenderprogramme einen Großteil des 
RAMs in Beschlag nahmen, so daß für 
Daten kein Platz mehr übrigblieb. 

Zum Vergleich hat der momentane Atari 
520+ einen 32K-Bildschirmspeicher, und 
der zukünftige Atari wird sogar ein 128K- 
Video-RAM aufweisen. Ob sich dieser 
Trend zu Grafik-Computern als richtig er- 
weisen wird, sei dahingestellt. Zumindest 
kann man festhalten, daß der Speicherbe- 
darf beim alten Mac von der Firma Apple 
völlig falsch eingeschätzt worden war. 


3.2. 128K-ROM 


Wir haben im Peeker bereits gezeigt (Heft 
5/85, S. Alff. sowie Heft 9/85, S. 67f.), 
daß der Macintosh zwar über einen 8- 
MHzZ-68000-Prozessor verfügt, daß je- 
doch wegen der Wartezyklen nur eine ef- 
fektive Taktfrequenz von ca. 5,2 MHz bei 
RAM-residenten Programmen erreicht 
werden kann. Des gilt übrigens nicht für 
den Atari 520+, der es bei unserem Test 
(5/85, S. 41) auf ca. 7,9 MHz bringt, wie 
unser Pascal-Autor Dieter Geiß auf sei- 
nem Atari nachgeprüft hat. Damit ist der 
Atari im RAM immerhin 50% schneller als 
der Macintosh (7,9 - 5,2 = 2,7 oder ca. 
50% von 5,2). Da laut dem technischen 
Leiter der Firma Apple, Herrn Zimmer- 
mann, sich bezüglich der Taktfrequenz 
beim neuen Mac nichts geändert hat, wur- 
de das ROM von 64K auf 128K aufge- 
stockt und enthält jetzt zusätzlich einen 
(weiteren) Teil des Betriebssystems sowie 
darüber hinaus u.a. die besonders zeitkriti- 
schen Fließkomma-Routinen. Damit kön- 
nen nun endlich wesentliche Betriebssy- 
stemfunktionen im ROM mit den vollen 8 
MHz ausgeführt werden. 


Die grafische Bildschirm-Textausgabe 
bzw. das Scrollen von Textzeilen wurde 
von uns in Heft 1/85, S. 76 heftig kritisiert. 
Angeblich sollen jetzt die der Grafik-Aus- 
gabe zugrunde liegenden sog. Quickdraw- 
Routinen, die seinerzeit Bill Atkinson ent- 
wickelt hatte, laut Apple um 70% verbes- 
sert worden sein (was wir jedoch erst noch 
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verifizieren müssen), womit die „Byte“ 
(Heft 2/84, S. 37) mit ihren Äußerungen 
(„Quickdraw is very fast"; „a 24K-byte 
package of highly optimized 68000 code“) 
völlig daneben lag, denn eine Assembler- 
Routine, die sich um 70% verbessern läßt, 
kann wohl kaum „very fast” gewesen 
sein. 


3.3. Schnittstelle SCSI 


Als kleiner Vorgeschmack auf den zukünf- 
tigen „Slot-Mac“ wurde der Mac+ mit ei- 
ner weiteren Schnittstelle namens SCSI 
(= Small Computer System Interface) ver- 
sehen, die sich erstens für den 
Datentransfer zwischen Mac+ und Groß- 
rechner sowie für den Änschluß von Fest- 
platten usw. sowie weiteren Peripheriege- 
räten im Daisy-Chain-Verfahren eignet. 
Wie bekannt, verfügte der alte Mac über 
zwei serielle Schnittstellen mit RS-422- 
Protokoll, wobei die RS-422- eine Weiter- 
entwicklung der RS-232- bzw. V24- 
Schnittstelle darstellt. Eine der beiden 
Schnittstellen wurde regelmäßig durch 
den Drucker (Imagewriter o.ä.) belegt, und 
an das andere Interface konnte theoretisch 
eine Festplatte angeschlossen werden. 
Während die klassische V24 eine Daten- 
übertragungsrate von maximal 19.200 
Bits/s (ca. 2,4K/s) hat, erzielt die Mac-RS- 
A22 eine Rate von normalerweise 230.000 
Bits/s (ca. 28K/s) oder mit externem Takt- 
generator von maximal 920.000 Bits/s (ca. 
112K/s). Für Festplatten ist dies trotzdem 
viel zuwenig, denn es handelt sich hierbei 
um theoretische Werte, die durch das je- 
weillige Betriebssystem — hier durch den 
Finder — stark relativiert werden. So soll 
etwa das Öffnen von „MS-Word“, das wir 
nicht besitzen, selbst bei einer RAM-Disk 
ca. 6,5s dauern. Wenn wir nun annehmen, 
daß dabei 1I00K eingeladen werden, so 
sind wir bereits bei 

100 : 6,5 = I5K/s 

angelangt. Da eine RAM-Disk stets 
schneller als jede Hard-Disk ist, kommen 
wir bei einer Festplatte mit serieller 
Schnittstelle auf kümmerliche Werte. Die 
Firma Apple gestattete deshalb bereits vor 
dem Erscheinen des Mac+, daß ohne Ga- 
rantieverlust eine Festplatte ins Mac-Ge- 
häuse eingebaut werden durfte („Hyper- 
drive"). Darüber hinaus stehen nunmehr 
dem Käufer des Mac+ durch die zusätzli- 
che Schnittstelle, über deren technische 
Besonderheiten wir mangels aussagekräf- 
tiger Unterlagen erst zu einem späteren 
Zeitpunkt berichten können, erweiterte 
Anschlußmöglichkeiten offen. Laut dem 
Geschäftsführer M.Klein der Firma MKV in 
Mannheim, der manchem Peeker-Leser 
von seinem Z80-Buch her bekannt sein 
dürfte, hat die SCSI eine Übertragungsrate 
von 1 Megabit/s (ca. 128K/s). Außerdem 


konnte er sehr hohe Lade- und Kopierge- 
schwindigkeiten in Verbindung mit dem 
Cache-Speicher messen. So soll etwa 
Macwrite jetzt in 1s von Diskette (nicht von 
der RAM-Disk!) geladen werden, wenn 
sich nach einem Warmstart das Betriebs- 
system bereits im Speicher befindet. Dies 
sind Werte, die alles bisher Bekannte in 
den Schatten stellen. Das „ewige War- 
ten“, das viele Mac-Benutzer beklagt ha- 
ben, dürfte damit endlich vorbei sein. 


Hinweis: Die Bezeichnung „Slot-Mac“ 
wird sich möglicherweise als unzutreffend 
erweisen. Wahrscheinlicher ist, daß beim 
zukünftigen „offenen Mac” — ähnlich wie 
beim Atari — eine größere Anzahl von An- 
schlüssen nach außen geführt wird, so daß 
es Steckkarten im klassischen Sinne nicht 
mehr geben wird. Doch ist dies alles bis- 
lang noch Spekulation. 


3.4. Cursor-Tastatur 


Das Fehlen von Cursor-Tasten hat sich 
beim alten Mac als ein erheblicher Nachteil 
erwiesen. Vereinfachend kann man sagen, 
daß die Maus für große Distanzen und die 
Cursor-Tasten für kurze Distanzen optimal 
sind. Wer sich bei einem Textverarbei- 
tungsprogramm um ein paar Buchstaben 
zurückbewegen wollte  (Kurzdistanz), 
mußte bereits zur Maus greifen. Dies ist 
völlig unergonomisch, weil das Betätigen 
der Cursor-Tasten viel schneller vonstat- 
ten geht, als wenn man die rechte Hand 
von der Tastatur abhebt, die Maus rührt 
und klickt und dann wieder die rechte 
Hand in die DIN-Normposition bringt. Viele 
dürften sich damit beholfen haben, daß sie 
mit der Delete-Taste einfach die letzten 
Buchstaben bis zur gewünschten Cursor- 
Position gelöscht haben. Ein unmöglicher 
Zustand für denjenigen, der effizient und 
schnell schreiben mußte! 

Mit der neuen DIN-Normtastatur mit Zif- 
fernblock sind diese Probleme aus dem 
Weg geräumt, doch müssen jetzt wohl erst 
alle Altprogramme dahingehend modifi- 
ziert werden, daß sie die Cursor-Tasten 
erkennen. 


3.5. 800K-Drives 


Die neuen 800K-Drives sind wie die alten 
A00K-Drives  3,5-Zoll-Sony-Laufwerke, 
die jedoch jetzt beidseitig (statt einseitig) 
benutzt werden, Langfristig gesehen sol- 
len alle Apple-Modelle mit 3,5-Zoll-Drives 
ausgestattet werden, wobei die 800K- 
Drives für den Apple Ile bereits vorliegen. 
Die 800K kommen übrigens so zustande, 
daß zwar — wie etwa beim normalen 640K- 
Laufwerk — jede Seite 80 Spuren aufweist, 
jedoch — im Gegensatz zu den meisten 
anderen Aufzeichnungsverfahren — die 
Anzahl der Blöcke’von den inneren zu den 
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äußeren Spuren zunimmt (Näheres siehe 
Heft 3/85, S. 48). 

Ob sich bei den neuen 800K-Disketten 
eine einzelne Datei über beide Seiten er- 
strecken kann, konnte bislang nicht verifi- 
ziert werden. 


3.6. Hierarchischer Finder 


Der alte Finder, wie das Mac-DOS ge- 
nannt wird, war das zugleich schönste und 
schlechteste Betriebssystem, das die Fir- 
ma Apple bislang entwickelt hat. Das 
schönste insofern, als sich viele von dem 
„Visual Interface“ einnehmen ließen. Das 
schlechteste insofern, als dem Kenner von 
Betriebssystemen die mangelnde Effi- 
zienz zu offenkundig vor Augen geführt 
wurde. Dies war auch der Firma Apple 
bewußt, sonst wären nicht innerhalb von 
weniger als zwei Jahren quasi pausenlos 
neue Versionen des Finders von ur- 
sprünglich 1.0 bis nunmehr 5.1 erschie- 
nen. Ohne auf Einzelheiten einzugehen, 
seien zwei globale Mängel herausge- 
hoben: 

1. Die fehlende hierarchische Dateistruk- 
tur machte den alten Finder in Verbindung 
mit größeren Datenträgern wie Festplatten 
sowie den neuen 800K-Drives schlechthin 
zur Farce (s.o.). Über die technischen Ein- 
zelheiten des neuen Finders 5.1 werden 
wir einen gesonderten Beitrag veröffentli- 
chen, der auch auf die Beziehungen zu 
dem hierarchischen ProDOS eingehen 
wird. 

2. Die Verarbeitungsgeschwindigkeit war 
einfach zu niedrig. Wer beispielsweise 
noch das alte Visicalc 3.3 für den Apple Il 
kannte, das nach einem Kaltstart Betriebs- 
system und Programm in 8 Sekunden von 
der Diskette einlud, mußte sich beim Mac- 
intosh an ganz andere Zeiten gewöhnen. 
Als Faustregel mußte man mit 60 Sekun- 
den rechnen, bis man sich nach einem 
Kaltstart beim Macintosh in irgendeinem 
Anwenderprogramm befand. Wie oben 
bereits angedeutet, wurden in dieser Hin- 
sicht erhebliche Verbesserungen vorge- 
nommen. 


4. Ökononisches zum Mac+ 


Nach unseren eigenen, vorsichtigen 
Schätzungen gibt es in der Bundesrepu- 
blik etwa 80.000 Apple-Ii- und etwa 5.000 
Mac-Besitzer. Zum Vergleich hat der 
Peeker knapp 20.000 Leser, unter denen 
sich ein paar hundert Mac-Besitzer befin- 
den, insbesondere solche, die neben dem 
Mac (z.B. im Büro) noch über einen Apple 
II (z.B. zu Hause) verfügen. Trotz dieses 
mißlichen Verhältnisse möchten wir dem 
neuen Mac+ in den nächsten Peeker-Hef- 
ten durch eine verstärkte Berichterstattung 
noch einmal eine Chance geben. Wird sich 
der Mac+ durchsetzen können? 
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4.1. Mac+ und Atari 


Nachdem im Herbst 1985 der 520+ von 
Atari erschienen und die Amiga von Com- 
modore für das Frühjahr 1986 angekündigt 
worden ist, wird man in diesem Jahr unter 
drei Computern wählen können, die hin- 
sichtlich der Konzeption unmittelbar ver- 
gleichbar sind. Da die Preise für die Amiga 
bislang noch nicht festliegen, beschränken 
wir uns auf einen Vergleich zwischen 
Mac+ und 520+: 


— Beide benutzen den 68000-Prozessor 
von Motorola in der 8-MHz-Version. 

— Beide haben ein großes ROM, beim 
Mac+ 128K, beim Atari 192K. 

— Beide haben ein RAM mit z.Zt. 1 Mega- 
byte, aufrüstbar auf theoretisch bis zu 4 
Megabytes (mit zukünftigen ICs). 

— Beide haben eine separate DIN-Tastatur 
mit Cursor-Tasten und verwenden die 
Maus. 

— Beide haben einen großen Grafik-Bild- 
schirmspeicher, beim Mac+ ca. 22K, beim 
Atari z.Zt. 32K. Der Atari hat damit eine 
größere Punktauflösung und gestattet au- 
Berdem den Anschluß eines Farbmonitors, 
während der Mac+ bislang ohne Farbe 
auskommen muß. 

— Beide benutzen 3,5-Zoll-Drives, beim 
Mac+ mit maximal 800K, beim Atari mit 
maximal 7/20K (160 Spuren a 9 Blöcken). 

— Beide verwenden ein Betriebssystem 
mit Fenstertechnik, wobei jedoch beim 
Mac+ eine größere Flexibilität hinsichtlich 
der Anzahl der geöffneten Fenster be- 
steht. 

Aus der Sicht der Hardware sind damit 
beide Geräte praktisch identisch. Erst 
beim Endabnehmerpreis kommt die Über- 
raschung: Für die Grundausstattung des 
Mac+ mit eingebautem Monitor und 
8S00K-Drive zahlt man ca. DM 10.000,-, 
während sich die Grundausstattung des 
Atari 520+ mit separatem Monitor und 
BAUK-Drive auf nur DM 3.300,- beläuft. 
Damit ist der Mac+ dreimal so teuer wie 
der Atari+. In manchen Zeitschriften, so 
z.B. in „Infowelt“, Heft 4/1986 wurde als 
Grundpreis DM 8750,- genannt, was dar- 
auf zurückzuführen ist, daß die Presseun- 
terlagen der Firma Apple die gemäß UWG 
unzulässigen Nettopreise ohne MwSt auf- 
führten. 

Mit der Grundausstattung hat man jedoch 
noch kein Komplettsystem, das noch un- 
bedingt einen Drucker sowie ein zweites 
Laufwerk (oder ggf. eine Festplatte) ein- 
schließen sollte. Für ein solches Komplett- 
system mit Matrixdrucker und Zweitlauf- 
werk zahlt man dann beim Macintosh ca. 
DM 13.500,- und beim Atari ca. DM 
5.500,- 

Aus der Sicht der Software ist der erst im 
Herbst 1985 erschienene Atari noch so 
nackt wie seinerzeit der 128K-Mac im 


Herbst 1984. Für den Mac und Mac+ gibt 
es inzwischen zahlreiche gute Program- 
me, die allerdings zumeist amerikanischer 
Provenienz und im übrigen oft sehr teuer 
sind. In der Mikrocomputer-Branche gilt 
nämlich der Grundsatz: 

Der teuren Hardware folgt die teure Soft- 
ware und umgekehrt. 

Ein gutes Beispiel hierfür ist der Schneider 
CPC, der derart preiswert ist, daß man für 
ihn das Original-dBase für knapp DM 200, - 
erwerben kann, während es für den Mac- 
intosh wahrscheinlich das 8- bis 10fache 
kosten würde. 


4.2. Scimming-Pricing 


Die Tatsache, daß die Preise für die 512K- 
Speichererweiterung für den Macintosh in 
regelmäßigen Abständen drastisch ge- 
senkt worden sind, läßt sich nicht allein mit 
den Preisveränderungen im Bauelemente- 
Sektor erklären, sondern offenbart viel- 
mehr eine neue Salami-Preispolitik der 
Firma Apple, die in Marketing-Lehrbü- 
chern vornehm als „Abschöpfen“ oder 
weniger vornehm als „Absahnen“ 
(„Scimming“; to skim = absahnen) be- 
zeichnet wird: Zunächst kommen die Di- 
rektoren im Topmanagement an die Reihe 
(DM 3750,- für 512K im Herbst 1984), 
dann die Führungskräfte im mittleren Ma- 
nagement (DM 2750,- für 512K im Som- 
mer 1985) und schließlich die Sekretärin- 
nen (ca. DM 1100,- für 1024K ab Februar 
1986; exakter Preis inkl. MwSt liegt noch 
nicht fest). 

Wenn man die Preislisten der Firma Apple 
durchgeht, wird man weitere Beispiele für 
diese Salami-Taktik finden, jüngst etwa 
beim Imagewriter |, der im November 
1985 für ca. DM 2800,- erschien und be- 
reits im Januar 1986 auf ca. DM 2200,- 
herabgesetzt wurde. 

Peeker-Leser, die den Kauf des Mac+ in 
Erwägung ziehen, müssen für sich selbst 
entscheiden, ob sie gleich zugreifen oder 
noch einige Monate zuwarten wollen, bis 
sich die Vorstandsvorsitzenden bedient 
haben, 


4.3. Grund- und Zusatznutzen 


Daß der Mac+ kein Gerät für „Edel- 
Freaks“ werden wird, dürfte bei einem 
Grundpreis von DM 10.000,- jedem ein- 
leuchten. Andererseits könnte der verbes- 
serte Mac+ eine große Verbreitung in Bü- 
ros erreichen, wenn das Gerät etwas 
preiswerter wäre, Leider peilt die Firma 
Apple in ihrer Werbung vornehmlich die 
Topmanager an, für die die Ledersessel- 
Garnitur genauso selbstverständlich ist 
wie der Porsche Targa als Zweitwagen 
oder neuerdings eben der Macintosh als 
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Ein Exemplar der hier 
gezeigten Bücher 


Sie haben die Wahl! 
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Mikroelektronik? 
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TER El: Fi 3, 
4 PER se il 
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f Applesoft BASIC Ir und Chefs 


Frank Bühler 





/ıps und 
/rieks 


fü) Hüthig 


erhalten Sie als 
"Dankeschön” für 
einen neuen 
Abonnenten, den Sie 
uns vermitteln. 


Als »peeker«-Leser 
wissen Sie, wie gut 
Ihnen dieses Magazin 
beim Umgang mit 
Ihrem Apple oder 
Kompatiblen hilft. 


Denn: Wer einen 
Apple oder einen 
Kompatiblen hat, der 
soll auch seinen 
»peeker« haben. 
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Bestellcoupon 


Ich bin der neue Abonnent. Bitte liefern Sie mir bis 
auf Widerruf, zumindest aber für 1 Jahr, »peeker« 
zum Jahresbezugspreis von DM 72,- (Ausland plus 
DM 18,- Porto) an folgende Anschrift: 


Ich habe den neuen Abonnenten geworben und er- 


halte kostenlos eines der folgenden 
(bitte ankreuzen) 


[] Bühler, Applesoft Basic 


Bücher Name, Vorname 


Straße, Postfach 


PLZ, Ort 


[] Meinhold, Was ist Elektronik 


[] Schilling, EDV-kein Geheimnis 
[] Stiehl, Apple ProDOS Bd. 2 


[| Meinhold, Was ist 


atum, Unterschrift 
Gewünschte Zahlungsweise 
[L] gegen Rechnung 
DI bargeldlos durch Bankeinzug 


Mikroelektronik 


Name, Vorname 
Straße, Postfach 
PLZ, Ort 


Datum, Unterschrift 


Konto-Nr: Bankleitzahl 
Geldinstitut 

Vertrauensgarantle: 

Diese Bestellung kann Ich Innerhalb einer Woche 
bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, 
6900 Heldelberg 1 widerrufen. Zur Wahrung der 
Frist genügt die rechtzeitige Absendung. Ich be- 
stätige die Kenntnisnahme mit meiner Unterschrift: 


2. Unterschrift 


Coupon ausschneiden oder 
kopieren und einsenden an: 


»peeker« 
Abonnementservice 


Im Weiher 10 
6900 Heidelberg 1 


mi) 


PUBLIKATION 


Statussymbol auf dem Palisander- 
Schreibtisch. Ledersessel, Porsche und 
Teakholz-Schreibtisch werden nicht we- 
gen des Grundnutzens (Sitzen, Fahren, 
Schreiben), sondern wegen des psycholo- 
gischen Zusatznutzens gekauft. Dies gilt 
im übrigen auch für viele Waren des tägli- 
chen Lebens wie modische Kleider, Kos- 
metika usw. Warum sollten also nicht auch 
bestimmte Mikrocomputer allein wegen 
des Prestige-Nutzens erworben werden. 
Hierzu ist der Macintosh bestens geeig- 
net, da er im Gegensatz zu dem recht 
klobigen IBM-PC keinen gesonderten 
Schreibtisch erforderlich macht. Wie man 
weiß, leben Firmen, die sich auf Luxusgü- 
ter spezialisiert haben, in der Regel recht 
gut. Man denke nur an die Porsche AG, 
deren Vorstandsvorsitzender seit gerau- 
mer Zeit in Prospekten, Anzeigen und auf 
Videobändern die Werbetrommel für die 
Firma Apple rührt. Unglaubwürdig wird 
diese Werbung jedoch dann, wenn vom 
Porsche-Chef in einer Time-Werbebeilage 
vom 11.11.1985 (Faschingsanfang!) be- 
hauptet wird, daß er das Diktaphon abge- 
schafft habe und nunmehr nicht nur seine 
private, sondern auch seine Geschäftskor- 
respondenz auf dem Macintosh selbst tip- 
pe. Dies könnte zu einer Revolution der 
Chef-Sekretärinnen führen, denn diesen 
verbliebe dann nur noch das rituelle Kaf- 
feekochen sowie als neue Tätigkeit das 
Massieren der Handgelenke des Chefs 
zur Vorbeugung gegen Tendovaginitis... 

Zurück zur Realität! Es würde der Verbrei- 
tung des Mac+ sicher guttun, wenn die- 
ses Gerät mehr über den Preis als über die 
Prestige-Werbung verkauft werden würde. 


4.4. Mac+ und Großrechner 


Die 68000-Rechner Mac+, Atari 520+ 
und Amiga sind weder unter sich noch in 
bezug auf IBM-PCs vom Betriebssystem 
her kompatibel. In den nächsten Jahren 
wird sich ein großer Markt für PCs eröff- 
nen, wenn in Teilbereichen EDV-Termi- 
nals durch Mikrocomputer ersetzt werden. 
Hier haben jedoch nach unserer Beurtei- 
lung der Sachlage weder Apple noch Atari 
noch Commodore irgendeine Chance. 
Wer eine IBM-Anlage besitzt, wird einen 
IBM-PC anschließen, und wer eine Sie- 
mens-Anlage unterhält, wird zum Sie- 
mens-PC greifen. Fremde Mikrocomputer 
werden hier nur in Spezlalfällen zum Tra- 
gen kommen. Es wäre an der Zeit, daß die 
Firma Apple die Hoffnungslosigkeit dieses 
Unterfangens einsieht. 


Betrachten wir hierzu das Service-Pro- 
blem. Da der Peeker meist als letzte Sta- 
tion und Klagemauer in Sachen Soft- und 
Hardware-Service fungiert, können wir 
diesen Komplex wahrscheinlich sogar 
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besser als die Firma Apple selbst beurtei- 
len. Mit der wachsenden Zahl der Nur- 
Anwender wachsen auch die Service-Pro- 
bleme der Apple-Händler, denn Service 
muß heute in einem erheblich erweiterten 
Sinne verstanden werden: 

1. Der sog. reine Hardware-Service be- 
zieht sich auf die Reparatur und/oder den 
Austausch eines Geräts oder Gerätetells. 
Beispiel: Auswechseln von defekten 
Druckköpfen bei Matrixdruckern. Dieser 
Service wird von allen Apple-Händlern er- 
füllt. 

2. Der sog. reine Software-Service bezieht 
sich auf die Beseitigung eines Programm- 
fehlers oder Bugs. Beispiel: Änderung des 
Applewriter-Cursors für Apple-Ilc-Besit- 
zer, Dieser Service wird bislang von kaum 
einem Apple-Händler geboten. 

3. Der sog. kombinierte Hard- und Soft- 
ware-Service bezieht sich auf die Anpas- 
sung von Apple-Software an fremde Hard- 
ware und umgekehrt. Beispiel: Beseiti- 
gung von Driver-Problemen eines Apple- 
Computers in Verbindung mit einem Ty- 
penraddrucker. Auch dieser Service wird 
bislang von kaum einem Apple-Händler 
geboten. 


Beispiel: Ein mir bislang unbekannter Ap- 
ple-Besitzer, der übrigens kein Peeker- 
Abonnent war, rief mich vorgestern 
(30.1.86) zu Hause in aufgelöstem Zu- 
stand an: Er sei reiner Anwender, seine 
Appleworks-Datendiskette, prallvoll mit 
Daten, sei „defekt“, werde nicht mehr von 
Appleworks akzeptiert, er habe kein Dupli- 
kat, sei bei seinem Apple-Vertragshändler, 
der Firma Rufenach gewesen, das dortige 
Personal habe einen „Error“ festgestellt 
und ihn dann an den Peeker verwiesen. 
Wir haben ihm dann am nächsten Tag in 
der Redaktion die Datendiskette aus- 
nahmsweise geflickt, obwohl wir natürlich 
für solche Aufgaben nicht zuständig sind. 
Lakonischer Kommentar von Herrn Grum- 
ser: „Der Mensch war echt erleichtert!“ 
Der Fall Rufenach ist typisch für viele Ap- 
ple-Händler. Wohlgemerkt, das Verkaufs- 
personal der Firma Rufenach ist sehr zu- 
vorkommend und freundlich, aber dies al- 
lein genügt heute nicht mehr. Es vergeht 
bei uns fast kein Tag, an dem sich nicht 
irgendein Apple-Besitzer über irgendei- 
nen Händler oder über die Firma Apple 
beschwert. Es ist immer wieder das alte 
Lied: Weil der Apple-Händler nicht helfen 
kann, wendet sich der Apple-Besitzer 
an Apple-München, und Apple-München 
verweist wieder an den Apple-Händler. 
Und dann wendet sich der Apple-Besitzer 
an uns, die wir jedoch meist auch nicht 
helfen können, weil wir uns nicht eigens 
für die Beantwortung einer Postkarte die 
Hardware X oder die Software Y kaufen 
können. 


Hinzu kommt noch, daß die Zahl der Ap- 
ple-Vertragshändler seit Sommer 1985 
drastisch reduziert worden ist, so daß bis 
Mitte 1986 wahrscheinlich nur noch ca. 
160 Händler verbleiben werden, von de- 
nen etwa 40 als sog. System-Händler den 
Macintosh ausliefern werden. Wer dann 
beispielsweise in Ostfriesland oder im 
Saarland wohnt, wird möglicherweise 50- 
100 km fahren müssen, bis er eine „Level- 
1-Service-Station“ findet. 

Wir verstehen in gewisser Hinsicht, daß 
sich Apple-Händler nur für den Hardware- 
Service im engeren Sinne zuständig füh- 
len und kein Interesse daran haben, etwa 
einem Appleworks-Käufer bei einem Spe- 
zialproblem zu helfen. Schließlich, so 
könnte man argumentieren, ist Ap- 
pleworks nicht von Apple, sondern von 
einem Mr. Rupert Lissner entwickelt wor- 
den, und im übrigen gibt es ja noch diese 
Freak-Zeitschrift— wie war doch der Name 
— ach ja diesen Peeker, an den man sich 
bei technischen Problemen wenden kann. 
Bei dieser Einstellung darf man sich je- 
doch dann nicht wundern, wenn kaum je- 
mand bereit ist, den Macintosh in Verbin- 
dung mit einer IBM-Anlage einzusetzen, 
denn gegen den Dschungel der IBM- 
Datenprotokolle ist das Flicken einer 
Datendiskette nun wirklich ein kleiner 
Fisch, Und wenn dann der Macintosh tat- 
sächlich einmal am Tropf einer IBM-Anla- 
ge hängen sollte, wird sich der Mac-Besit- 
zer ganz allein helfen müssen. Denn wer 
bereits bei kleinen Apple-Il-Problemen 
überfordert ist, wird bei IBM-Problemen 
hoffnungslos resignieren. 


5. Fazit 


Wir glauben, daß sich der Mac+ zu einem 
soliden und brauchbaren Mikrocomputer 
gemausert hat und daß er gute Verkaufs- 
chancen hätte, wenn er halb soviel kosten 
würde. Wir glauben jedoch nicht, daß es 
dem Mac+ oder irgendeinem anderen 
IBM-fremden Mikrocomputer gelingen 
wird, als intelligenter Terminal an einen 
Mainframe-Computer angeschlossen zu 
werden. Dieser Markt wird den kombinier- 
ten EDV- und PC-Anbietern vorbehalten 
bleiben. Aber der Einsatz eines Mac+ als 
Stand-alone-Gerät stellt schließlich auch 
einen Markt dar. Neben der Verwendung 
als Manager-Werkzeug könnte er bei an- 
gemessenem Preis in den Bürobereich 
schlechthin eindringen. Außerdem wird er 
in Verbindung mit dem Laserwriter neue 
Bereiche in den traditionellen Hausdruk- 
kereien von Industriefirmen erschließen 
können. Aufgrund von Unterlagen des 
Satzanlagenherstellers Compugraphic 
wird hierzu von uns ein mehrteiliger Be- 
richt vorbereitet. 
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Speichererweiterungskarten 
für Apple Ile und IIc von 256k bis 1 MB 


Multiram von Checkmate Technology 


e 16bit CPU Port 

« 65816 Coprozessor lieferbar 

° für Ile bis 1 MB erweiterbar 

« für IIc bis 512k erweiterbar 

- incl. Appleworks Memory Eexpander 

° Ramdisk Software für Pascal 1.1/ 1.2 
DOS ProDos und CP/M 

« kommt in Auxiliary Slot (3) 

» ersetzt erweiterte 80 Zeichen Karte 
EEE gpr nF Brrreeggr BE 
Ramworks von Applied Engineering 

« incl. Appleworks Expander 

° Ramdisk Software für DOS/Prodos incl. 

« Treibersoftware für Pascal 1.1/1.2 optional 
« Treibersoftware für CP/M 2.x optional 


Z-Ram von Applied Engineering 


« wie Ramworks aber für IIc 
+ Z80-Karte integriert 
e Jäuft mit CP/M 2.23 oder 4.0 von AE 


Pandaye®ft Dr.-Ing. Eden 


| Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa10-13 Uhr 
Telefon: 0 30/3104 23 - Telex: 185 859 
Druckerinterfaces für Apple II+/e/ 


STERE S c/lll Interfaces auf dem neuesten 


Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
| APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt, 
Grafikfähiges Druckerinterface 


ai . pie Tr das keine Wünsche mehr offen läßt. 


Über 2 Dutzend Kommandos ermggleheg die volle Kontrolle 
über alle Möglichkeiten Ihres | 
Druckers. Jetzt auch mit 

Ile Features: Double Hires 
Grafics und 80 Zeichen Dump Zu 
mittels Druckerpuffer nachrüstbar WE: =. = - 
über Bufferboard. RE 


Grappler <i Besitzt alle elht: a8 GTARrIer = 
hat aber zusätzlich einen integrier- 

ten 16 K Druckpuffer, der uf _ eg Z = 

32 oder 64. K aufrüstbar ist. 





Serielles Druckerinterface 
speziell für den Apple Image- 
writer. 


Ilorımk 
KNRAPPLER c 


Seriell-nach-Parallel-Wandler für 
den IIc im Kabel integriert. 


wie Hotlink, jedoch zusätzlich 


Imagewriter Emulation und Grafik 
Software-Diskette. 


panday®ft-.... :.. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 - Telex: 185 859 
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Bkyan 
PASGAL 


Pascal Compiler für Apple II (+,e,c) 









+ erzeugt 6502 Assembler-Code 
e schneller als Turbo Pascal 

+ benötigt keine Z-80 Karte 

+ läuft unter Prodos 

* integrierter Assembler 

° inclusive Editor (full screen) 

+ mehrfach in Peeker getestet 








sofort ab Lager lieferbar 






Einführungspreis : DM 199,- 








Panday®ft:»..., Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 - Telex: 185 859 







Sie haben einen Apple... 


wir haben die 
Software... 






und die 
Hardware... 
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& CHESS 





ALLES FÜR DEN APPLE Il+, lie, lic UND MACINTOSH 


ee ee 


UHLANDSTRA., 195 - D- 1000 BERLIN 12 
TEL.(O30) 310 423 -TELEX:185859 
Autorisierter @pppte Fachhandler MICROSOFT Distributor 
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Im folgenden wird untersucht, wie reelle 
Zahlen von Applesoft behandelt werden. 
Wir werden unter anderem der Frage der 
Genauigkeit nachgehen und auch zeigen, 
warum Applesoft, im Gegensatz zu vielen 
Taschenrechnern, nur Zahlen aus dem 
Bereich von 10 T (-38) bis 10 7 38 
verarbeiten kann. 

Da dieser Artikel sowohl für Applesoft- 
Neulinge als auch für mathematisch wenig 
bewanderte Leser verständlich bleiben 
soll, sind einige vorbereitende Bemerkun- 
gen unerläßlich. 


ii? i | 
Wenn Sie wissen möchten, warum 
PRINT 1.01-1.0 nicht 0.01 ergibt, 
dann lesen Sie den folgenden Auf- 
satz! 





1 Eine exakte Definition des Begriffs der 
„reellen Zahl“ ist nur möglich, wenn ent- 
sprechende mathematische Kenntnisse 
vorausgesetzt werden dürfen. Wir wollen 
hier unter „reellen Zahlen“ einfach Dezi- 
malbrüche jeglicher Art verstehen. 


2 Die CPU des Apple ist ein 8-Bit-Prozes- 
sor. Sowohl RAM- als auch ROM-Spei- 
cher sind daher folgerichtig als 8-Bit-Spei- 
cher ausgelegt. 


3 Jedes Bit kann einen der beiden Zustän- 
de „on“ (Wert 1) und „off“ (Wert O) an- 
nehmen. 


4 Um verstehen zu können, wie der Inhalt 
eines Speichers (8 Bits = 1 Byte) von der 
Maschine interpretiert wird, müssen wir 
uns zunächst mit sog. Positionssystemen 
befassen. 


Wir sind von früher Kindheit an so sehr 
daran gewöhnt, „dezimal“ zu denken, daß 
uns, wenn wir etwa die Zahl 234 sehen, 
kaum noch bewußt ist, daß es sich hierbei 
um eine durch Konvention festgelegte 
Kurzschreibweise für den Ausdruck 2 & 
107T2+3*1011+4x10 70 
handelt. Jeder Ziffer ist also neben ihrem 
Wert noch ein Stellenwert zugeordnet. In 
dem uns vertrauten Dezimalsystem sind 
dies die Potenzen der Basis 10. 


RE | #5 / 

N 
FA X 
f 


ER: 
Er # 
5%‘ 


Lg 
a Hi 
[ 


. {alt Nr 
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Ein System, das sich dieser Art der Zah- 
lennotation bedient, wird Positionssy- 
stem genannt. Ein Gegenbeispiel ist die 
römische Art der Zahlenschreibweise. 
Positionssysteme haben unter anderem 
den Vorzug, daß man nur eine geringe 
Anzahl von Ziffern braucht (in unserem 
Falle die Ziffern von O bis 9), um alle 
denkbaren Zahlen in verhältnismäßig kur- 
zer Form schreiben zu können. 

Daß sich gerade die Zahl 10 als Basis 
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1011011110110110 (47030). 

Um diese Zahl abzuspeichern, brauchen 
wir offensichtlich zwei Speicherplätze. Wir 
legen das aus den letzten 8 Bits bestehen- 
de Byte (132) in einem Speicher A, und 
das aus den ersten 8 Bits bestehende 
(183) im darauffolgenden A + 1 ab. Da die 
Stellenwerte des vorderen Bytes 256mal 
so groß sind wie die entsprechenden des 
hinteren, wird die Bedeutung des in BA- 
SIC-Programmen häufig auftretenden 


Muster zu speichern vermag, festgehal- 
ten? 

Machen wir zuerst ein kleines Experiment. 
Wir schalten den Apple bei geöffneter 
Drive-Tür ein und drücken Reset. Die Ma- 
schine ist bereit, aber DOS ist nicht gela- 
den. Wir tippen nun: 


AA = 17,35 
Mit 
SALES] 


Behandlung reeller Zahlen 
am IM Applesoft 


etabliert hat, beruht aller Wahrscheinlich- 
keit nach auf der Tatsache, daß wir 10 
Finger besitzen und der Mensch von früh 
auf beim Zählen die Finger benutzte. Hätte 
uns die Natur mit 8 Fingern an jeder Hand 
ausgestattet, dann wäre unser Denken 
vermutlich „hexadezimal“ ausgerichtet, 
was dem Computer-Anwender manches 
Kopfzerbrechen ersparen würde. 

Zurück zu Bit und Byte! Da ein Bit nur 
einen von zwei Zuständen annehmen 
Kann, stehen dem Computer in gewissem 
Sinne nur zwei „Ziffern“ (0 und 1) zur 
Verfügung. Wir sind somit gezwungen, 
das uns vertraute Dezimalsystem zu ver- 
lassen und uns einem Positionssystem 
zuzuwenden, das mit eben diesen beiden 
Ziffern auskommt. 

Es dürfte klar sein, daß die Basis des 
neuen Systems die Zahl 2 sein muß. Da- 
mit befinden wir uns im Dual- oder Binär- 
system. 

Was bedeutet nun beispielsweise ein 
Speicherinhalt der Form 10110110? Wenn 
wir die einzelnen Bits (Ziffern) mit ihren 
Stellenwerten (Potenzen von 2) versehen, 
kommen wir zu dem in Tabelle 1 darge- 
stellten Ergebnis. 


9 Noch ein paar Worte zur Art der Abspei- 
cherung natürlicher Zahlen (insbesondere 
Speicheradressen). Die größte durch ein 
Byte darstellbare Zahl ist (binär) 
11111111, dezimal also 128 + 64 + 32 + 
16+8+4+2+1 = 255. Will man eine 
Zahl abspeichern, die größer ist, dann 
braucht man folglich mehr als ein Byte. 
Nehmen wir als Beispiel 
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Ausdrucks PEEK (A) + 256 » PEEK (A + 
1) klar. In unserem Beispiel ergäbe das 
182 + 256 & 183 = 47030. 

Die größte Zahl, die in dieser Weise ge- 
speichert werden kann, ist 255 + 256 x 
255 = 257 * 255 = 65535, und dies ist 
somit auch die größte Speicheradresse. 
Wie die Adressen werden z.B. auch die 
Zeilennummern eines Applesoft-Pro- 
gramms in 2-Byte-Form gespeichert. 


Zum Schluß dieses Abschnitts noch ein 
Wort zu der zunächst sinnwidrig erschei- 
nenden Konvention, die beiden Bytes in 
umgekehrter Reihenfolge abzuspeichern. 
Der Prozessor des Apple führt im Grunde 
als einzige Rechenoperation die Addition 
aus. Subtraktionen werden durch Addition 
des sog. Basiskomplements des Subtra- 
henden simuliert (nach einer Idee übri- 
gens, die von Gottfried Wilhelm Leibniz 
[1646-1716] stammt!). 

Will man nun zwei 2-Byte-Zahlen addie- 
ren, so hat man zuerst die beiden hinteren 
Bytes zu addieren, und danach die beiden 
vorderen zusammen mit dem sich aus der 
ersten Addition ergebenden Übertrag. 
Durch die Art der Abspeicherung findet die 
CPU die zu verarbeitenden Bytes in der 
Reihenfolge vor, wie sie zu verarbeiten 
sind. 


1. Ein kleines Experiment 


Wenden wir uns nun unserem eigentli- 
chen Thema zu. In welcher Form wird eine 
reelle Zahl von Applesoft, das doch nur 
natürliche Zahlen von 0 bis 255 als Bit- 


gehen wir danach in den Monitor und 
tippen: 

69.6A 

Auf dem Schirm erscheint: 


0069- 03 08 


Die beiden Bytes hinter dem Strich sagen 
uns, daß die Speicherung der numeri- 
schen Variablen bei $0803 (LOMEM) be- 
ginnt. Nun tippen wir: 

803.809 

und sehen: 


0803- 41 41 85 0A CC 
0808- CC CD 


Die ersten beiden Bytes stellen den Na- 
men der Variablen AA dar, wobei 41 der 
ASCII-Code des Buchstaben A in hexade- 
zimaler Form ist. Es folgen ab Speicher 
$0805 fünf Bytes, die den der Variablen 
AA zugewiesenen Wert repräsentieren. 
Die fünf Bytes, die die Zahl 17.35 reprä- 
sentieren (im folgenden wird der der engli- 
schen Notation entsprechende Dezimal- 
punkt anstelle des Kommas benutzt), be- 
finden sich in dem Speicher $0805 bis 
$0809. Um sie in die uns vertraute dezi- 
male Form umzuwandeln, sehen wir erst 
einmal nach, wie die Speicheradressen in 
dezimaler Form lauten. Hier hilft uns eine 
Routine des Applesoft-Interpreters 
(LINPRT), die diese Umwandlung für uns 
erledigt. Wir tippen: 

45:08 05 NED24G 

Was da im einzelnen vor sich geht, soll 
hier nicht weiter besprochen werden. Be- 
gnügen wir uns mit dem angezeigten Er- 
gebnis 2053. 
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Wir kehren mit Ctrl-C Return in den BA- 
SIC-Editor zurück und finden schließlich 
die gesuchten fünf Zahlen, indem wir fol- 
gende Zeile eingeben: 

FOR I = 2053 TO 2057: ? PEEK (I)* “;: 
NEXT 

Auf dem Schirm erscheint: 


133 10 204 204 205 


Und das endlich ist das Ergebnis unseres 
Experiments. Die Zahl 17.35 wird also von 
Applesoft in das Quintupel aus den Zahlen 
133, 10, 204, 204 und 205 umgewandelt. 


2. Die interne Darstellung 


Zwei Fragen bleiben noch zu klären: Wie 
wird die Umwandlung einer reellen Zahl in 
ein Quintupel vollzogen, und wie wird aus 
einem Quintupel wieder eine reelle Zahl 
generiert? Beide Prozesse beanspruchen 
jeweils sechs Schritte, wobei natürlich im 
zweiten Falle die gleichen Schritte vollzo- 
gen werden wie im ersten, nur in umge- 
kehrter Reihenfolge. Die einzelnen Schrit- 
te sind: 


I. Umwandlung der reellen Zahi in einen 
Binärbruch, 

II. Normierung, d.h. Aufspaltung in Mantis- 
se und Exponent, 

Ill. Voranstellen des um 128 vergrößerten 
Exponenten, 

IV. Aufteilung der Mantisse in Achter- 
gruppen, 

V. Setzen des Vorzeichen-Bits, 

VI. Umwandlung der Achtergruppen in na- 
türliche Zahlen. 


2.1. Dezimal nach Binär 


Wir wollen die sechs Schritte der Um- 
wandlung am Beispiel der Zahl 17.35 in 
aller Ausführlichkeit vollziehen und erkiä- 
ren. Da es aber dazu offensichtlich not- 
wendig ist, Dezimalzahlen in Binärzahlen 
und Binärzahlen in Dezimalzahlen umzu- 
wandeln, sollen zuerst Algorithmen ent- 
wickelt werden, die zur Lösung dieser Auf- 
gaben geeignet sind. 


Schritt I: Sehen wir uns noch einmal die 
uns schon bekannte binäre Darstellung 
der Zahl 183 an. Wenn wir die rechte Seite 
sukzessive durch die Basis 2 dividieren, 
dann erhalten wir das in Tabelle 2 darge- 
stellte Schema. 

Es ist sicher nicht zu übersehen, daß es 
sich bei den auftretenden Resten genau 
um die Ziffern der dualen Darstellung han- 
delt, die allerdings in umgekehrter Reihen- 
folge auftreten. Man erkennt, wie sie durch 
die Divisionen der Reihe nach freigelegt 
werden. 

Soweit wir wissen, stammt das Verfahren 
von dem griechischen Mathematiker Eu- 
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klid und ist daher als euklidischer Algorith- 
mus bekannt. Seine Umsetzung in ein BA- 
SIC-Programm finden wir in REELL.1. 
Wenden wir es doch noch einmal auf eine 
andere Zahl an! Diesmal in etwas verein- 
fachter Schreibweise und mit der Basis 3: 


217 = 3 x 72 + 1 (Stellenwert: 1) 
72 =3 x 24 +0 (Stellenwert: 3) 
24=53%* 8+0 (Stellenwert: 9) 
8=3%* 2 +2 (Stellenwert: 27) 
2=53%* 0 +2 (Stellenwert: 81) 


In der Tatist 2*81 +2x*27+0x%9+ 
0*3+1x%*1 = 217. Der euklidische 
Algorithmus funktioniert also in gleicher 
Weise für jede beliebige Basis (REELL.2). 
Ist allerdings die Basis größer als 10, dann 
kommen wir mit den Ziffern O bis 9 nicht 
mehr aus (REELL.3). 

In den Programmen REELL.1 bis REELL.3 
wird die Applesoft-Darstellung reeller Zah- 
len verwendet. Die Ergebnisse sind da- 
durch bezüglich ihrer Exaktheit gewissen 
Beschränkungen unterworfen. Das gilt 
nicht für REELL.1A. Hier werden Zahlen 
mit bis zu 10 Ziffern in voller Genauigkeit 
in Binärzahlen umgewandelt. Dafür müs- 
sen allerdings größerer Programmierauf- 
wand und längere Laufzeit in Kauf genom- 
men werden. Die 10-Ziffern-Begrenzung 
läßt sich selbstverständlich durch entspre- 
chende Dimensionierung in Zeile 160 
nach Belieben abändern. 

Zur Umwandlung einer in einem gewissen 
Positionssystem vorliegenden Zahl in de- 
zimale Notation sehen wir uns REELL.4 
an. Nachdem Basis und Zahl eingegeben 
worden sind (Zeile 150-160), werden die 
Ziffern mit ihren Stellenwerten (Potenzen 
der Basis) multipliziert und die so entste- 
henden Produkte addiert (Zeile 180-220). 
Das Ergebnis ist die Zahl in dezimaler 
Form. 

Das Problem der Darstellung einer natürli- 
chen Zahl in einem beliebigen Positions- 
system ist damit gelöst. Da wir es aber mit 
Dezimalbrüchen zu tun haben, müssen wir 
uns jetzt mit der Frage ihrer Umwandlung 
in Dualbrüche befassen. Sie wird durch 
REELL.5 beantwortet. 

In Zeile 170 wird zunächst das Vorzeichen 
festgehalten. In den Zeilen 200 und 210 
wird dann die unserer Zahl benachbarte 
Potenz von 2 bestimmt. Ist unsere Zahl 
kleiner als diese Potenz, dann notieren wir 
die Ziffer O (Zeile 220); ist sie nicht kleiner, 
dann ist die zu notierende Ziffer 1, und die 
Zahl wird um die Zweierpotenz vermindert 
(Zeile 230). Nun wird der Exponent um 1 
vermindert und der Vorgang solange wie- 
derholt, bis wir die für unsere Zwecke 
erforderliche Anzahl von Ziffern besitzen 
(240-250). Die Position des Binärpunktes 
wird in der Variablen BP festgehalten. 
Zum besseren Verständnis wollen wir die 


Ergebnisse der ersten Schritte für unser 
Beispiel 17.35 aufschreiben (Tabelle 3). 
In dieser Weise erhalten wir den folgenden 
Binärbruch: 

10001.0101100110011007110011001 10100. 

Damit ist Schritt I erledigt. 


Schritt Il: Wir erinnern uns, daß die Multi- 
plikation eines Dezimalbruchs mit 10 bzw. 
seine Division durch 10 sich in einer ent- 
sprechenden Verschiebung des Dezimal- 
punkts ausdrückt. Es ist etwa 123.456 = 
1.23456 # 10 T 2 = 1234.56 #10 ? (-1). 
Entsprechendes gilt für Dualzahlen, bei 
Multiplikation mit 2 bzw. Division durch 2. 
Unter Normierung versteht man die Dar- 
stellung des Binärbruchs in der Form 
O.IXKKRRKXHTIO TY, 

die durch eine entsprechende Verschie- 
bung des Binärpunktes immer erreichbar 
ist, es sei denn, der Bruch enthalte keine 
einzige Ziffer 1. Mit Ausnahme der Null, 
die wie so oft eine Sonderstellung ein- 
nimmt (sie wird durch den sonst nicht auf- 
tretenden Exponenten O0 repräsentiert), 
kann man somit jede Zahl normieren. 
1XXXXXXXXX heißt Mantisse, Y Exponent 
der normierten Form. 

Unsere Zahl hat jetzt die Gestalt 
0.1000101011001100110011001100110100 

* 10 T 00000101 

(10 T 0000101 ist in dezimaler Notation 
natürlich 2 ? 51). 


Schritt Ill: Offensichtlich wird der Expo- 
nent um 128 vergrößert, wenn man sein 
erstes Bit von O in 1 umwandelt. Stellen 
wir ihn an den Anfang, so erhalten wir 
10000101 

1000101011001100110011001100110100. 

Die Vergrößerung um 128 wird natürlich 
vorgenommen, um negative Exponenten, 
die ja keine natürlichen Zahlen sind, aus- 
zuschließen. Das ist aber nur dann er- 
reichbar, wenn der Exponent vor der Ver- 
größerung nicht kleiner war als -127. Aus 
dem Wert -128 ergäbe sich nämlich nach 
der Addition O, wodurch aber, wie oben 
erwähnt, die Zahl Null dargestellt wird. An- 
dererseits darf der Exponent +127 nicht 
überschreiten, da sich sonst nach der Ver- 
gröBerung eine Zahl ergäbe, die nicht 
mehr in einem Byte unterzubringen ist. 

Es ist jetzt nicht mehr schwer, die größte in 
dieser Weise darstellbare Zahl ausfindig 
zu machen. Wir kehren dazu zu unserem 
Experiment zurück. Wir tippen: 

FOR I = 2053 TO 2057: POKE 1,255: 
NEXT 

womit wir den der Variablen AA zugeord- 
neten Zahlen den größtmöglichen Wert 
zuweisen. Nach PRINT A erscheint auf 
dem Schirm 


-1.70141183E+38 
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SYSTEMAUFBAU-DATENBANK 
SCHREIBTISCHMANAGER-RECHENBLATT 


V.BOTTA /CHR.LANGE /K. ZMMERMANN 


Band 1: 
. Einleitung 
‚ Was Sie benötigen 
‚, Starten von APPLE WORKS 
. Der Schreibtischmanager 
. Datenbank 
. Rechenblatt 
Al Anschluß der Festplatte ProFile 
AZ APPLE Il Easy Pieces Referenz 
AS3 Druckeranpassungen 
A4 DOS 3.3 Konvertierungen 
AS APPLE WORKS Disketten sichern/ 
kopieren 
A6 Hilfsfunktionen nach Programmteilen 


TEXTBEARBEITUNG ACCESS I1- DATENFERN- 


V.BOTTA /CHR.LANGE / K. ZIMMERMANN 


ku 


Band 2: 


Al, 


A7 
A8 
AI 


Einleitung 

Was Sie benötigen 

Starten von APPLE WORKS 
Der Schreibtischmanager 
Textbearbeitung 
Datenfernübertragung 

..A6 wie Band 1. dazu: 
Modemkabel für APPLE Ile, IIc 
SuperSerialCard: Einstellung 
ASCII-Textdateien aus anderen 
Dateiformaten für ACCESS II 


A10 DATEX-P2O F Verzeichnis 
All Deutsche/Englische Menübilder 


von ACCESS I 


Von Botta/Lange/Zimmermann je 264 Seiten, 
Softcover, je DM 49,- 


APPLE WORKS auf APPLE II, Ile, Ilc: 

verwandelt APPLE-I-Computer in einen Elektroni- 

schen Schreibtischmanager mit: 
Texterstellung ...Edition, Briefarchiv, Ausdruck etc. 
Datenarchivierung ... Kontoführung, Buchhaltung 
etc. Formblattkalkulation ... Bilanzen, VisiCalc- 
Dateien etc. Datenfernübertragung ...Mailbox, 
Rechnerkopplung etc. 

® ist ein erfolgreicheres Integrationspaket als LOTUS 
auf IBM PC! 

® ist auf 1 MByte Speichererweiterungen Ihres 
APPLE Il vorbereitet! 

® erschließt Ihnen die Zukunftstechnik MAILBOX! 

@ ist ebenso einfach zu bedienen wie APPLE 
WRITER: 
Kein Befehlsstudium ...Einfachste Menü- 
führung ... Sofortige Anwendbarkeit 


te-wi’s APPLE WORKS SYSTEMBÜCHER 1+2 

zeigen Ihnen: 

® Sämtliche APPLE WORKS Funktionen an Beispie- 
len aus der Wirtschaft 

© Das Wechseln zwischen Text/Rechenblatt/Daten- 
archiv/Dfü 

© Umfassende Systeminformationen zu Dateikonver- 
tierung, Druckeranpassung etc. 


te-wi Verlag GmbH 


= 
Theo-Prosel-Weg 1 IT 
8000 München 40 


Weitere te-wi-Bücher 


u Das 


NEL 


| APPLE II/lI+/He/IIc-Handbuch 


(L. Poole) 


Erst mit Hilfe dieses Leitfadens werden Sie 
Ihren Apple II erfolgreich einsetzen, denn 
Text und Bildmaterial gehen weit über das 
hinaus, was herstellerseitig an Literatur 


angeboten wird. 


Neu überarbeitet und jetzt um die spezifi- 
schen Eigenheiten der Modellel e und II c 
| erweitert. 472 Seiten, Softcover, DM 66,- 


APPLE Il - Bewegte 3D-Graphik 


(Phil Cohen) 


Selbstentworfene Graphiken und Dia- 
gramme - animiert oder als Standbilder - 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 


Sie in diesem Buch. 


200 Seiten. Softcover. DM 49. - 


=lReparaturanleitung Computer: 
Apple II, IIplus 


Ner, 


Einzigartige Serviceunterlage für Reparatu- 


Enthält Schaltpläne, Bauteile- und Ver- 
| gleichstypenliste: Prüfpunkte mit Oszillo- 
| grammen der Signalformen. Logiktabellen, 
Spannungsangaben: schnelle Servicetests: 
u | Anleitung zur systematischen Fehlersuche, 
en AA-Mappe. DM 29.80 


Noch im Programm: 


Computer für Kinder, APPLE II, DM 29,80 
6502 Programmieren in Assembler, DM 59,- 
Umweltdynamik (Prospekt anfordern), DM 66,- 218) 


LOGO - 
Jeder kann programmieren 

a (Daniel Watt) 
Buch des Jahres in den U SA. Für die 
Computer APPLE Il, C-64, IBM PC, 
ATARI bis 520 ST, TI-99 und Schneider 


Für BASIC-Programmierer der einfachste 
en Zugang zur Muttersprache des APPLE. Wesent- 
sr | lich schnellere Maschinenprogramme, direkte 
Li Manipulation des Mikroprozessors 6502 im 
4 APPLE - als Brücke dorthin benötigt dieses 
Eau Buch nur die drei BASIC-Befehle POKE, 
as CALI. PEEK.D. Inman/K. Inman. DM 49, - 


Erstes deutsches Referenzwerk sämt- 
licher Befehle und Systerrroutinen von 
Apple Il, IIplus, Ile 

| APPLE I PASCAL Nr, 
Betriebssystem. 272 S., DM 49.- 
Sprache, 216 S.. DM 39.- 
Pascal 1.2 Addendum, 112 S.. DM 36.- 


Grundlagenbuch. Bestseller 
APPLE II PASCAL. 

Eine praktische Anleitung, 
544°5,.DM59= 


Macintosh Programmierhandbuch mit MSBASIC 2.0 


(Ende '85), DM 59,- 
Einführung in die Mikrocomputer-Technik, DM 66, - 
M68000-Familie, 2 Bände, DM 79,- und DM 69,- 





(Stört Sie das Minuszeichen? Mit POKE 
2054, 127 kann es entfernt werden.) Die 
obere Grenze für von Applesoft verarbeit- 
bare Zahlen ist also nicht 10 f 38, son- 
dern 1.70141183 ® 10 T 38. In enispre- 
chender Weise findet man die untere 
Grenze 2.93873588 # 10 ? (-39). 


Schritt IV: Die Aufteilung in ÄAchtergrup- 
pen liefert uns die Darstellung: 

10000101 

10001010 11001100 11001100 11001101. 


Schritt V: Der Normierungsprozeß bringt 
es mit sich, daß das erste Bit des zweiten 
Bytes immer gesetzt (= 1) ist. Es bedeutet 
also keinen Verlust an Information, wenn 
man dieses Bit nicht kennt. Man kann es 
daher für andere Zwecke verwenden und 
tut dies auch, indem man ihm die Rolle des 
Vorzeichen-Bits zuweist. Nach Vereinba- 
rung beläßt man ihm den Wert 1, falls eine 
negative Zahl vorliegt. Ist sein Wert O, 
dann handelt es sich um eine positive 
Zahl. 

Aus unserer Zahl wird dann 

10000101 

00001010 11001100 11001100 11001101 


Schritt VI: Zum guten Ende erhalten wir 
mit Hilfe des Programms REELL.4 die ge- 
suchten Zahlen 133, 10, 204, 204, 205. 


Durch REELL.6 wird ein Programm vorge- 
legt, das den gesamten Umwandlungspro- 
zeß für beliebige positive und negative 
reelle Zahlen vollzieht und die Zwischen- 
ergebnisse auf den Bildschirm bringt. Das 
Programm setzt das Vorhandensein einer 
80-Zeichenkarte voraus, da anderenfalls 
nicht alles auf dem Schirm unterzubringen 
ist. 

Es soll nicht verschwiegen werden, daß 
das Programm seine Grenzen hat. Da nur 
7/3 Binärziffern berechnet werden (Zeile 
360), wird BP nur gefunden, wenn die 
umzuwandelnde Zahl kleiner istals 2 T 73 
(ungefähr 10 ? 22). Anderenfalls wird da- 
durch ein falscher Exponent berechnet. 
Zur korrekten Umwandlung braucht man 
32 gültige Ziffern (d.h. ohne führende Nul- 
len). Diese werden bis zur Größenord- 
nung 10 ? (-12) gefunden, und somit 
werden richtige Ergebnisse geliefert. Bei 
10 T (-13) ist das nicht mehr der Fall, 
wodurch das letzte Byte ungenau wird. 
Eingaben, die kleiner als 10 7 (-22) sind, 


würden zu „BAD SUBSCRIPT IN 690° 
führen, da | + 31 größer als 100 wird (Zeile 
740). Ist schließlich die Eingabe größer als 
10 ? 37, dann folgt „OVERFLOW IN 
310“. Die ONERR-GOTO-Anweisung in 
Zeile 180 verhindert das Abbrechen des 
Programms in diesen Fällen und fordert zu 
erneuter Eingabe auf. 


2.2. Binär nach Dezimal 


Es bleibt die Frage zu klären, wie die Um- i 
wandlung eines Quintupels in eine reelle 
Zahl vollzogen wird. Wie oben gesagt, sind 
an sich die sechs Schritte in umgekehrter 
Reihenfolge zu vollziehen. Da wir aber nun 
die Bedeutung der einzelnen Glieder des 
Quintupels kennen, können wir mit weit 
geringerem Programmieraufwand aus- 
kommen. Sehen wir uns REELL.7 an! 

Zunächst werden die fünf Zahlen eingege- 
ben, wobei unzulässige Eingaben zurück- 
gewiesen werden (160-190). Dann wird 
das Vorzeichen bestimmt und das zweite 
Byte vom Vorzeichen-Bit befreit (210- 
220). Anschließend addieren wir die mit 
ihren Stellenwerten versehenen vier letz- 
ten Bytes (240-260) und multiplizieren das 


Disk #12 
(DOS 3.3; Heft 12/85) 


COSMO CRUMBLE 
T.CC2 — T.CC6 


CC.LEVELS 

(1) Reaktionsspiel für Tastatur oder 
Joystick; (2) Heft 12/85, S. 6; (3) Il+, 
Ile oder Ilc; wahlweise Joystick; (4) 
DOS 3,3; (5) RUN COSMO CRUM- 
BEE 


IW.DEMO 


(1) Initialisierung des Imagewriters 
durch mit IW.DEMO generierbare, 
BRUN-fähige Steuer-Sequenz-Pro- 
gramme; (2) Heft 12/85, S. 12; (3) Ile 
oder IIc {lI+ mit Einschränkungen, 
wegen der Tastatur); Imagewriter 
(beim Ile mit Super-Serial-Card); (4) 
DOS 3.3 oder ProDOS; (5) RUN 
IW,DEMO 


ASCII.EDITOR 

COPY.TEXT.DEMO 

T.COPY.TEXT 

COPY.TEXT 

ASCII.CODES 

(1) Erstellung eines eigenen Zeichen- 
satzes; Kopieren des 40-Z/Z-Text- 
Bildschirms in den HGR-Bereich; (2) 
Heft 12/85, S. 16; (3) speziell II+, 
aber auch Ile oder IIc mit Einschrän- 
kungen; (4) DOS 3,3; (5) RUN 
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ASCILEDITOR; RUN COPY.TEXT- 
‚DEMO; (6) Nach FLASH werden 
Großbuchstaben auf dem HGR-Bild- 
schirm als Kleinbuchstaben ausge- 
geben 


GETTEXT.DEMO 

T.GETTEXT 

GETTEXT 

GETTEXT.PRODOS 

(1} Hilfsprogramm zur Erweiterung 
des Tastatur-INPUT-Befehls durch 
Editierfunktionen; (2) Heft 12/85, S. 
20; (3) Il+, Ile oder IIc (40 und 80 Z/ 
Z, auch Videx); (4) DOS 3,3 (GET- 
TEXT) oder ProDOS mit BASIC.SY- 
STEM 1,0 (GETTEXT.PRODOS); (5) 
RUN GETTEXT.DEMO; (6) für Videx 
und ProDOS leichte Anpassung von 
GETTEXT.DEMO erforderlich, s. Heft 


RAMDISK.PAS 

(1) Installierung einer CP/M-56K- 
RAM-Disk unter Turbo-Pascal; (2) 
Heft 12/85, S. 62; (3) Ile mit 64K- 
Karte; (4) CP/M 2.20 56K; Turbo- 
Pascal 2.0 oder 3.0; (5) RAMDISK 
(unter GP/M, nach Konvertierung mit 
APDOS und Compilieren auf Diskei- 
te); (6) entspricht der RAM-Disk aus 
Heft 6/1985, S. 55 


JAHRESINHALT 

WORT.SUCHER 
WORT.SUCHER.OBJ 

(1) Jahresinhaltsverzeichnis als binä- 
re Textdatei mit Programm zur Suche 
von Stichwörtern; (2) Heft 12/85, S. 
72; (3) II+, Ile oder Ilc; 40 und 80 Z/Z 
(auch Videx); (4) DOS 3.3 und Pro- 
DOS; (5) RUN STICHWORT.SU- 
CHER 


Peeker-Sammeldisk 
+12 und #13 


(Einzelpreis DM 28,-; Fortsetzungspreis DM 20,-) 


Disk #13 
(DOS 3.3; Heft 1/86) 


QUICK.RANDOM 

QUICK.SPEZIAL 

QUICK.TASC 

QUICK.DISK 

(1) Demonstration von Quicksort; (2) 
Heft 1/86, S. 6; (3) Il+, Ile oder Ilc; 
80-Zeichenkarte die INVERS/NOR- 
MAL erkennt; (4) DOS 3.3 oder Pro- 
DOS; (5) RUN QUICK.RANDOM, 
RUN QUICK.SPEZIAL (Demo für auf- 
steigend vorsorliert, absteigend vor- 
sortiert, gleiche Elemente), RUN 
QUICK.DISK (für Diskettensorlieren); 
(6) QUICK.TASC eignet sich als 
Quelltext für den Tasc-Compiler 


QUICKSORT.DEMO 
T.QUICKSORT 

QUICKSORT 

(1) Ampersand-Utility zur Sortierung 
eines eindimensionalen Arrays nach 
dem Quicksort-Älgorithmus; (2) Heft 
1/86, S. 16; (3) Il+, Ile oder Ilc; (4) 
DOS 3.3; (5) RUN QUICKSORT.- 
DEMO 


VOK.TRAINER 

VOK.COPY 

VOK.PACK 

VOK.BCOPY 

GWS.INFO 

GWS.VOK 

(1) Vokabellernprogramm mit Editor 
für Vokabeln; {2} Heft 1/86, S. 20; (3) 
II+, Ile oder IIc; Laufwerk mit ggf, 40 
Spuren; (4) DOS 3.3; (5) RUN VOK.- 
TRAINER; (6) GWS.INFO und 
GWS.VOK beinhalten den englischen 
Grundwortschatz 


AGE.DEMO 

T.AGE 

AGE 

(1} Ampersand-Erweiterung der Gra- 
fik-Befehle in Applesoft; (2) Heft 1/ 
86, S. 30; (3) II+, Ile oder Ilc; (4) 
DOS 3.3; (5) RUN AGE.DEMO 


GRAFIK.DEMOS.2 

(1) Demonstration effektvoller Grafi- 
ken; (2) Heft 1/86, S. 61; (3) Il+, Ile 
oder Iic; (4) DOS 3.3 oder ProDOS; 
(5) RUN GRAFIK.DEMOS.2 


Peeker 3/86 


Ergebnis mit der durch das Exponent-Byte 
bestimmten Zweierpotenz (280-290). Man 
könnte wohl meinen, die beiden Zeilen 
seien durch D=Dx 2 ? (Z(l) - 128) 
ersetzbar. Dies würde aber bei Z(1) = 255 
zur OVERFLOW-Meldung führen. Zeile 
2/0 sichert die richtige Behandlung von 
Zahlen, deren Exponent-Byte den Wert 1 
besitzt, 


Als kleine Anwendung ist REELL.8 ge- 
dacht, wo sich der Algorithmus aus 
REELL.7 in den Zeilen 220-250 wiederfin- 
det. 

Zur Beschleunigung des Programmab- 
laufs sind im ROM des Apple eine Reihe 
von oft gebrauchten Zahlen fest gespei- 
chert. Zum Beispiel steht in dem Spei- 
cherbereich 61552-61556 das Quintupel 
für die Zahl 1/4. Das Programm REELL.8 
berechnet diese Applesoit-Konstanten 
und bringt Ergebnis und zugehörigen 
Adreßbereich auf den Bildschirm. 


3. Die Genauigkeit 


Zum Schluß noch einige Bemerkungen 
über die Genauigkeit, mit der reelle Zahlen 
ın Applesoft behandelt werden. Die Ergeb- 
nisse unserer bisherigen Untersuchungen 
machen es unslleicht, eine grobe Abschät- 
zung vorzunehmen. 

Zur Darstellung der Mantisse werden 32 
Bits benötigt. Die größte darstellbare Man- 
tisse ist also | 


Na Ri ealse 


Fassen wir sie für den Augenblick als na- 
türliche Zahl auf, dann ist ihr Wert in dezi- 
maler Form 2 T 32 - 1, also ungefähr 4.3 
* 10 T 9. Das ist eine zehnstellige Zahl. 
Dies bedeutet aber, daß Zahlen mit mehr 
als zehn Stellen nicht mehr in voller Ge- 
nauigkeit dargestellt werden können. 


Um die Darstellung von Dezimalbrüchen 
zu untersuchen, müssen wir zuerst Ihre 
Entstehung als Ergebnis einer Division 
zweier natürlicher Zahlen betrachten. 

Hat der Divisor von 2 und 5 (Faktoren der 
Basis 10) verschiedene Primfaktoren, 
dann erhalten wir stets einen periodischen 
Dezimalbruch, der also mit endlich vielen 
Ziffern nicht exakt darstellbar ist. Um das 
einzusehen, betrachten wir z.B. den Bruch 
13/40. Durch Erweiterung mit 25 wird dar- 
aus 325/1000 = 0.325. Eine solche Erwei- 
terung ist aber etwa bei 13/60 nicht mehr 
möglich, da der Nenner den Faktor 3 ent- 
hält, der in keiner Potenz von 10 vor- 
kommt. 

Entsprechendes gilt für Brüche aller Posi- 
tionssysteme. Da im Dualsystem nur 2 als 
Primfaktor der Basis auftritt, erhalten wir 
fast In allen Fällen periodische Ergebnisse. 


Peeker 3/86 


Tabelle 1 


1#277 + 0*276 + 1#215 + 1*214 + 0%213 + 1#212 + 1#211 + 0x2t0 


= 1&128 + 0x 64 + 1& 32 + 1# 16 +0 8+1l#» 4+ 1% 


Tabelle 2 


2 +0%* 1= 18, 


101101l1ll = Ax2#Ox2x2x2#2 + Axr2a2#2x2 + 282422 


ERRKEKIKLHZ + Zr2#2#2 
EREHARKLHZ + 2x+2%2 
ARLHRK2 + 2x2 
E22 +2 

2x2 + 1 

2 

il 

0 


Tabelle 3 


‚35 17.35 - 244 


7 
17393 
1,33 
1,35 
1,35 
0,39 
6) 
0. 
0. 


‚35 0,355 - 21(-2) = 0.100000001 


100000001 < 
100000001 > = 21(-4) 


Abbrechende Binärbrüche entstehen nur, 
wenn der Divisor eine Potenz von 2 ist. 
Dies macht sich zwar nicht immer bemerk- 
bar, heißt aber doch, daß „fast kein“ Dezi- 
malbruch im Appiesoft-Format exakt dar- 
stellbar ist. Lassen Sie doch einmal das 
folgende Programm für verschiedene 
Schrittlängen laufen! 


10 HOME : INPUT "SCHRITTLAENGE: ";J : 
REM kleiner als | 

20 FOR I = 0 TO 99 STEP J 

SO IE PEER (1801 +4. < 1 84) <> 
160 THEN STOP 

AD PRINT I: NEXT 


Zeile 30 hält das Programm an, sobald in 
der siebten Bildschirmzeile ein ungenaues 
Ergebnis steht, Sie werden feststellen, 
daß das Programm fast immer nach weni- 
gen Schritten anhält. Nur bei den Schritt- 
längen 0.5, 0.25, 0.125, 0.0625, 0.03125, 
0.015625 und 0.0078125 ist dies nicht der 
Fall. Warum? Es sind die Stammbrüche 
mit Zweierpotenzen als Nenner. 

Die geschilderte Tatsache ist auch der 
Grund für das gelegentliche Versagen pri- 
mitiver Trainingsprogramme nach Art von 
REELL.9. Bei den in den REM-Zeilen an- 
gegebenen Beispielen versagt das Pro- 
gramm, obwohl berechneter und gerate- 
ner Wert als (scheinbar) gleich ausgege- 
ben werden. (0.7 z.B. wird durch das 
Quintupel 128, 51, 51, 51, 51, falls es aber 
als X + Y berechnet wird, durch 128, 51, 
51, 51, 52 dargestellt.) 

Das Versagen des Programms beruht auf 
Ungenauigkeiten in der Bestimmung der 
letzten Bits von Byte 5, Durch Entfernung 
des REM-Tokens in Zeile 180 (so daß die 


1.35 - 240 


+ 2x2x«2 
+ 2%#2 
+2 

+1 


HOrHörr m 


Zitter: 1 

Ziffer: OÖ 

Ziffer: O 

Ziffer: O 

= 0.35 Ziffer: 1 
Ziffer: O 
Ziffer: 1 
Ziffer: Ö 
1 


0.100000001 — 27(-4) = 0.0375000015 Ziffer: 





angegebene Berechnung ausgeführt wird) 
kann der Fehler korrigiert werden. 

Man könnte natürlich voraussagen, für 
welche Zahlenkombinationen dieser für 
den Unkundigen verwirrende Umstand 
eintritt. Dies bedürfte aber einer umfas- 
senden Analyse, die wir uns hier aus 
Platzgründen versagen müssen, Der inter- 
essierte Leser kann mit Hilfe von 
REELL.10 weiterforschen. 

REELL.10 ist eine Weiterentwicklung von 
REELL.7. Nachdem die fünf Zahlen einge- 
geben sind, erscheint in der Mitte des 
Bildschirms Byte 5 in binärer Darstellung. 
Unten wird der durch die fünf Zahlen re- 
präsentierte Dezimalbruch angezeigt. 
Nach den Anweisungen am oberen Bild- 
schirmrand kann nun jedes Bit von Byte 5 
nach Belieben geändert und die Auswir- 
kung der Änderung auf die dargestellte 
Zahl beobachtet werden. 

Versuchen Sie es doch einmal mit dem 
Quintupel 80, 0, 0, 0, 0! Eine Änderung 
von Bit 3 wird hier bereits nicht mehr wahr- 
genommen. Bei 40, 0, 0, 0, O beeinflußt 
selbst eine Änderung von Bit 4 die Dar- 
stellung nicht! 


Demo-Programme 


Die Peeker-Sammeldisk enthält die De- 
mos REEL REEEETAF BEER 2 Dis 
REELL.10 als Applesoft-Programme, die 
jeweils mit RUN gestartet werden und un- 
ter DOS 3.3 und ProDOS lauffähig sind. 
Mit Ausnahme von REELL.6 sollte die 
A40-Z/Z-Darstellung gewählt werden. 


IX 


REELL.1 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


REM 4 4 

REM | | 

REM ! Euklid für Basis 2 ! 

REM | | 

REM +. 5 

DIM S(39): HOME 

INPUT "WELCHE ZAHL? ";2: REM Höchstens 12 Ziffern 
S= INT (2/2) 

S{IJ =2-2x% 5: REM Rest 
2=S: IFZ=0 THEN 210 
I=1I+ 1: GOTO 170 

PRINT : FOR J = I TO 0 STEP - 1 
PRINT S(J);: NEXT 


REELL.1A 


100 
110 
120 
130 
140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM Hmm 2, 
REM |! ! 
REM ! Euklid fürB=2 |! 

REM | (exakt) \ 

REM ! ! 

REM Hm———— RR + 

D1 = 11:D2 = 34: DIM S(D1),T(D2): REM Maximal 10 Ziffern 
HOME : INPUT "WELCHE ZAHL? ";Z$:L = LEN (2Z$): IFL>Dl 
— 1 THEN 170 

FOR I = 1 TO L:S{T) = VAL ( MID$ (Z$,1,1)): NEXT 
K=K+1l: FRI=1+PTOL:T=S(I) 

S(I) = INT (S{I) / 2) 

IFT>2%S{I} THENS{(I+1) =S{I+1) +10 

NEXT : IF S{L +1) > 0 THEN T{K) = 1:S{L+ 1) =0 
IFS{l+P)=0THENP=P+HN1 

IF L > P THEN 190 

PRINT PRINT 75: PRINT "70-7 = D» 

IF T{I) = O0 THEN I = I - 1: GOTO 260 

FOR J=1ITOI1STEP-1 

PRINT T{J);: NEXT 


REELL.2 


100 
110 
120 
130 
140 
150 
160 
170 


180 
190 
200 
210 
2RO 
250 


REM |! | 

I! Euklid für B<]]1! 

REM | ! 
Jam 

DIM S{30): ONERR GOTO 160 

I= 0: HOME : INPUT "NEUE BASIS: ";B 
INPUT "ZAHL: ";Z: REM Zulässige Ziffernzahl hängt von 
B ab. 

S= INT (Z/B) 

S{I=2-BxS 

2 =5: IF Z= (0 THEN 220 

I= I+ 1: GOTO 180 

PRINT : FOR J = I TO 0 STEP- 1 
PRINT S(J);: NEXT 


REELL.3 


100 
110 
120 
130 
140 
150 
160 


170 
180 
190 
200 
210 
220 


230 
240 
250 
260 


REM #4 

REM |! 1 

REM |! Euklid für B < 37 ı 

REN | 1 

REM bm——— 22 0 

REM 26 Buchstaben + 10 Ziffern 

DIM S$(30):0 = 55: ONERR GOTO 170: REM 65 
ASc ( ran ) 

HOME :I = 0: INPUT "NEUE BASIS? ":B 

INPUT "WELCHE ZAHL? ";Z 

S= INT (2 /B) 

T=2-B+35 

S$(I) = STR$ (T) 

IF T> 9 THEN S${(I) = CHR$ (T + 0): REM A = 
usw. 

2=5: IF Z=0 THEN 250 

I= I + 1: GOTO 190 

PRINT : FOR J = I TO 0 STEP - | 

PRINT S$(J);: NEXT 


= 10 +55 = 


REELL.4 


100 
110 
120 
130 
140 
141 
142 


18 


REM + nr 

REM |! ! 

REM ! Basis B —> Basis 10 ! 

REM |! ! 

REM bu 4 

REM Nur für B<1il 

REM Keine Ziffer darf größer sein als B-l 


150 HOME : INPUT "WELCHE BASIS? ":B 
160 INPUT "WELCHE ZAHL? ";Z$ 


170 L= LEN (Z$) 

180 FOR I =L TO 1STEP - 1 

190 2 = VAL ( MIDS (Z$,1,1)): REM Ziffer 

200S=Bt (L - I): REM Stellenwert 

21l0D=D+r2x#S5 

220 NEXT 

230 PRINT : PRINT D 

REELL.5 

100 REM +——  — + 

110 REM ! | 

120 REM ! Dualbrüche ! 

130 REM |! I 

140 REM I — + 

150 CLEAR : DIM S(33): TEXT : HOME : ONERR GOTO 150 

160 INPUT "WELCHE ZAHL? ";S$: REM 2 f 32 > Betrag > 2 1 (-34) 

170 v$ = "+": IF LEFT$ (S$,1) = "-" THEN V$ = "_0.Sg = 
RIGHT$ (S$, LEN (S$) - 1) 

180 IF LEFT$ (S$,1) = "." THEN S$ = "0" + 5$ 

190 S = VAL (S$): HOME : PRINT : PRINT V$S$: PRINT : PRINT 
"= tyorzt;. IES<1LTHENI=-1 

200 IF S > 2 T EX THEN EX = EX + 1: G0TO 200 

210 IFS<2 1 EX THENEX= EX - 1:I=1I+ (S <1): G0TO 210 

220 IF S<2t EX THEN S{(I) =0 

250 IFS>=21 EXTHENS(I)=155=S-2+ KK 

24) EXK=SEX- 11I=I+1: IE KX=-1 TMHENBP=1I 

250 IF I < 32 THEN 220 

260 IF BP = O0 THEN PRINT "O0"; 

270 FOR I = 0 TO 33: IF I = BP THEN PRINT "_"; 

280 PRINT S(I);: NEXT 

REELL.6 (nur mit 80 Z/Z) 

100 REM #———— 00 

110 REM | | 

120 REM ! Zahl -> Quintupel ! 

130 REM ! ! 

140 REM 4+-—- ——. 4 

150 PRINT CHR$ (4)"PR#3": PRINT CHR$ (12) 

160 CALL - 998: INVERSE : PRINT "!" SPC( 74)" 1" 

170 PRINT "!" SPC 23)"REELLE VARIABLE IN APPLESOFT" SPC{ 
25) 

180 PRINT "I!" SPC{ 74)"!1":; NORMAL : POKE 34,3: GOSUB 740: 
ONERR GOTO 190 

190 S$ = "": VTAB 4: POKE 36,1: PRINT SPC( 59)"<RETURN> 
beendet": VTAB 4: PRINT "X ="; 

200 GET X$: PRINT X$;:X = ASC (X$): IF X = 8 THEN PRINT : 
GOTO 190: 

al0O IF X < > 13 THEN S$ = S$ + X$: GOTO 200 

220 IF LEFT$ (S$,1) = "." THEN S$ = "0" +. 5$ 

2350 L=LEN (S$): IF L= 0 THEN TEXT : PRINT CHR$ (12): 
GOTO 620 

240 FOR I = 1 TO L:X = ASC ( MID$ (5$,1,1)) 

250 IF (X < 48 OR X > 57) AND X <> 46 AND X < > 45 AND X 
<> AS OR (X = 45 AND X < > 43) AND I > 1 THEN PRINT 
CHR$ (7): GOTO 190 

260 NEXT :S = VAL (S$):V = S: FOR I = 1 TO L: POKE 773 + I, 
ASC ( MID$ (S$,1,.1)): NEXT : POKE 773,L 

270 CALL - 958: GOSUB 730 

280 PRINT "Erster Schritt: Darstellung als Binärbruch": 
PRINT "Bitte etwas Geduld!"; 

2930 EX = 0:1= 0: 0N S = 0 GOTO 370: IF ABS (S) < 1 THEN I = 
-1 

300 V$ = "+": IF LEFT$ (S$,1) = "-" THEN V$ = "-1:5$ = MID$ 
(5$,2):5=--5 

310 IFS >21 EX THEN EX = EX + 1: GOTO 310 

520 IFS<2T EX THENEX = EX - 1:I=1I+ (S< 1): COTO 320 

350 IFS<2T EX THEN S{I) =0 

540 IFS>=2 1 EXTHENS(I)=1:5S=S-21t EX 

350EBEX=EX-1:I=sI+1l:  IFEX=-1ITENBP=1I 

360 IF I < 72 THEN 330 

570 PRINT : VTAB 7: PRINT V$;: IF BP = O0 THEN PRINT "or": 

380 FOR I = 0 TO 72: IF I = BP THEN PRINT ".". 

390 PRINT S(I);: NEXT : PRINT : GOSUB 730 

400 PRINT "Zweiter Schritt: Normierung"” 

410 ON V = 0 GOTO 700:1I = 0:EX = 0: IF S(0) <> 0 THEN EX = 
BP: GOTO 430 

420 IF S{I} = 0 THENI=1I+ 1:EX = EX - 1: GOTO 420 

430 POKE 768,EX + 128:E$ = '4":J] = 0: IFEX <0 THEN EX = 
=> EX:E$ _— ı _t 

440 E(J) =EX - 2 x INT (EX / 2) 

450 EX = INT (EX / 2): IF EX > 0 THEN J = J + 1: COTO 440 

A460 PRINT V$"0.";: GOSUB 690 

470 PRINT " = 107("E$;: GOSUB 680: PRINT ")": GOSUB 730 

480 PRINT "Dritter Schritt: Voranstellen des un 128 
vergrößerten Exponenten’! 

490 INVERSE : PRINT V$;:E(7) = 1: BOEEB-GELL:_ NORMAL 
EIS ruf F= ECH AREA MO TE 20. Fam 
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far)=* 





4 Applesoft 4 


DE TEE Tr u jbenus LIU 
RRINF-I-U4: COSUR-590 


500 : 220 V$ = "+": IF Z(2) > 127 THEN V$ = H— 
s10 FRINT : GOSUB 730: PRINT "Vierter Schritt: Aufteilung 230 IF Z2(2) < 128 THEN 2(2) = Z(2) + 128 
auf Vi; yeor Mantisse in Achtergruppen" 240 FOR I =1T04:D=D+HZ({I +1) « 256 t - I: NEXT 
SEO"GOSUB 680: FOR J = I TO I + 31: IF INT ((J- I) /8) = 250 D=Dx»r2% (z(l) - 128) 
{! - I) / 8 THEN PRINT »" 260 PRINT A$;: HTAB 11: PRINT V$::D$ = STR$ (DJ) TE INT (D) 
550 PRINT S(J);: NEXT : PRINT : GOSUB 730 =D THEN D$ = D$ + " 
540 PRINT "Fünfter Schritt: Erstes Mantissenbit durch 270 IFD< 1 THEN D$ = "0" + D$ 
Vorzeichenbit ersetzen" 280 IF LEN (D$) < 11 THEN D$ = D$ + "0": GOTO 280 
550 S(I) = V$ = "-": GOSUB 680: PRINT "" ";: INVERSE : PRINT 290 PRINT D$;: HTAB 25: PRINT A" BIS "A + A: RETURN 
S(I);: NORMAL 300 FOR I = 1 TO 39: PRINT "-":: NEXT : PRINT : RETURN 
860 FOR J=I+r1T0 I+31:K = (J- I) /8: IFK = INT (K) 310 DATA MIN.INT, 57598, 1,59667 
THEN PRINT " "; S20 DATA SOR(1/2),59693,SQR(2) , 59698 
570 PRINT S{J):: NEXT : PRINT 330 DATA -1/2,59703,LN({2) ‚59708 
580 GOSUB 730: PRINT "Letzter Schritt: Umwandlung der 340 DATA 10,59984, MILLIARDE, 60692 
Achtergruppen in Dezimalzahlen" 350 DATA 1/2,61028,2LG(E) ‚61147 
990 FOR K = 0 TO 3: FOR J = 0 TO 7:Z(K) = Z{K) +S{I+J +8 360 DATA PI/2,61542,2%&PI,61547,1/4,61552 


*K) «21 (7 - J): NEXT : POKE 769 + K,Z(K): NEXT 

600 INVERSE : VTAB 22: PRINT PEEK 1768);: RBOR T = 070.3: 
NORMAL : PRINT " ";: INVERSE : PRINT Z(I);: NEXT : REELL.9 
NORMAL : PRINT : GOSUB 730 

610 PRINT "Diese fünf Zahlen werden im Anschluß an den 


Variablennamen gespeichert.";: GOTO 720 100 REM a ze; 

620 FOR I = 1 TO PEEK (773):R$ = R$ + CHR$ ( PEEK (773 + 110 REM ! u ! 
I)): NEXT 120 REM ! Additionstest ! 

630 PRINT "Machen Sie die folgende Probe:": PRINT : PRINT 130 REM ! 
AAO REM I en, 


"Tippen Sie zuerst 'NE#W' und dann 'A = "gti nn 
640 PRINT : PRINT "Danach finden Sie die vorhin gefundenen 
Zahlen: ";: FOR I=0 TO 4: PRINT " " PEEK (758 + T):: 
NEXT 
650 PRINT : PRINT : PRINT "durch 'FOR I = 2054 TO 2058 : 
PRINT PEEK ( I )"gg" "gS";: NEXT," 
660 PRINT : PRINT "ÜNEW": PRINT : PRINT "ÜA = "R$: PRINT : 
PRINT "UFOR I = 2054 TO 2058 : PRINT PEEK ee 
05"; : NEXT" 
670 VTAB 20: INVERSE : PRINT "Benutzen Sie die 
Rechtspfeiltaste!": NORMAL : VTAB 9: END 
680 FOR J = 7 TO 0 STEP - 1: PRINT E(J};:: NEXT : RETURN | 
690 FOR J = I TO I + 31: PRINT S{J):: NEXT : RETURN | 
700 VTAB 15: PRINT "Die Zahl Null muß eine andere Behandlung REELL.10 
erfahren, da sie nicht normiert werden" 
710 PRINT "kann. Sie wird durch den Exponenten 0 


150 HOME : INPUT "1. SUMMAND: ":X 

160 INPUT "2. SUMMAND: ":Y 

170 zZ=-X+Y 

180 REM Z=INT (1E9#Z+1E-9) /1E9 

190 INPUT "RATE ERGEBNIS! ";G 

200 PRINT : PRINT zu = "gu (wm: 

210 IF G = Z THEN PRINT "WAHR)" 

220 IF G < > Z THEN PRINT "PFALSCH)" CHR$ (7) 
250 REM Beispiele für falsches "FALSCH®: 
240 REM 0.1+0.6,0,140.8,0.3+0.4 

250 REM 0.340.6,0.4+0,5,0,640.7 


repräsentiert." 100 REM +-----—— --—--———-- — —+ 
720 CLEAR : GOSUB 740: GOTO 190 110 REM | 
730 FOR X = 1 TO 76: PRINT "-";: NEXT : PRINT : RETURN 120 REM ! Änderung von Byte 5 ! 
740 DIM S(100):Q$ = CHR$ (34): RETURN 130 REM ! 
| 140 REM em—— 
150 HOME : PRINT " <- UND -> BEWEGEN f <RET> AENDERT BIT" 
160 PRINT " <SPACE> = NEUE ZAHL <ESC> = ENDE": FOR I =1 m 
REELL.7 40: PRINT "-";: NEXT : POKE 34,5 
170 CLEAR :X$ = " } ":B$ = CHR$ (8): HOME : FORI=1 T0 5: | 
JOOBREMEE SL 2 HTAB 14: PRINT I; 
110 REM |! 180 INPUT ". ZAHL: ";Z$:Z(1) = VAL (Z$) 
120 REM ! Quintupel -> Zahl |! 190 IF 2$ = "" OR Z(I) <O OR Z(I}) > 2335 THNI=I-1: 
130 REM ! VTAB PEEK (37): CALL —- 868 
FAGYREM ep an en en 200 NEXT :ZW = Z(2): GOSUB 360 
150 REM Eingabe | 210 J=J+1:5= INT (Z(5) / 2) 
160 HOME : FOR I = 1 TO 5: PRINT I; | 220 B(J) = Z(5) - 2 # S:Z(5) =S 
170 INPUT ". ZAHL: ";2$:Z(I) = VAL (Z$) 230 HT = 19: IF S > O0 THEN 210 
180 IF 2$ = "" OR Z(I) < 0 OR Z(I) > 355 THNI=I-1: 240 VTAB 14: HTAB 12: PRINT "NUMMER: ";: FOR I = 7 TO 0 STEP 
VTAB PEEK (37): CALL - 868 — 1: PRINT I;: NEXT 
190 NEXT 250 VTAB 15: HTAB 12: PRINT "BYTE 5: ":: INVERSE : FORI=8 
200 REM Vorzeichen 10-1] STEP = 7] 
210 V$ = "+": IF Z{2) > 127 THEN V$ = "-" 260 PRINT B(I);: NEXT : NORMAL 
220 IF Z(2) < 128 THEN Z(2) = Z(2) + 128 270 VTAB 16: HTAB HT: CALL - 868: PRINT X$B$B$: 
230 REM Umwandlung in reelle Zahl 280 WAIT - 16384,128:A = PEEK ( - 16384): POKE - 16368,0 
240 FOR I = 1 TO 4 290 IF A = 149 AND PEEK (36) < 26 THEN PRINT X$B$B$::HT = HT 
250D=D+Z(I+1) «2561-1 | +1 
260. NEXT & “PRINT =2K 711) 500 IF A = 136 AND PEEK (36) > 19 THEN PRINT B$B$X$B$B$; :HT 
270 IFK=1THEND=Dx 21% (K - 128): GOTO 300 She] 
280 D - Ds 27 (K. 129) 310 ON A = 155 GOTO 480: ON A = 160 GOTO 170: ON A <> 1l4l 
290 D=D+D GOTO 280 
500 PRINT "DIE ZAHL HEISST "V$;: IF D< 1 THEN PRINT "to": 320 B(27 - HT) = 1 - B(27 - HT): HTAB HT + 1: YTAB 15: PRINT 
310 PRINT D B(27 - HT) 
330 FOR I = 1 T05:T = PEEK ( - 16336): NEXT :J = 0: FOR I = 
1 T08 
340 J=J+B(l) «23 (8 - I): NEXT :Z(5) = J 
REELL.8 350 GOSUB 450:Z(2) = ZW: GOSUB 360: GOTO 240 
360 V$ = "+": IF Z(2) > 127 THEN V$ = te 
100. REM men ee 370 IF Z(2) < 128 THEN Z(2) = Z(2) + 128 
110 REM ! | 380D=-0: FORI=1TWAD=D+Z(I +1) «2561 - 1: 
120 REM ! Applesoft-Konstanten ! NEXT : PRINT :K = Z(l) 
130 REM ! 390 IFK=1THEND=D.«2t% (K - 128): GOTO 4lo 
140 REM 4+--—— 4 40D=Dx2% (K-129):D=D+D 
150 TEXT : HOME : HTAB 10: PRINT "APPLESOFT-KONSTANTEN": 410 VTAB 22: CALL - 958: HTAB 12 - LEN ( STR$ (D)) / 2 
PRINT : PRINT | 420 PRINT "DIE ZAHL HEISST "V$; 
160 PRINT "NAME" SPC( 11)"WERT" SPC( 8)"SPEICHER": GOSUB 300 450 IFD< 1 ANDD > IE - 3 THEN PRINT "or: 
170 FOR K = 1 TO 13: READ A$,A 440 PRINT D: RETURN 
180 GOSUB 200: NEXT : GOSUB 300 450 5=0: FRI=8T0O1STEP- 1 
190 PRINT : PRINT "MIN.INT IST UNGENAU, WEIL BYTE 5 FEHLT.": 460 S=S+B{(I) «21 (I - 1): NEXT :z(5) = Ss 
END 470 INVERSE : VTAB 10: HTAB 23: CALL - 868: PRINT S: 
200 D=0: FRI=1T05 NORMAL : RETURN 
210 Z(I}) = PEEK (A + I - 1): NEXT 480 TEXT : HOME : END 


Peeker 3/86 19 














Erstellung zusammenhängende: 
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4 PRodos 94 


von Arne Schäpers 


Das hier aufgegriffene Problem ist seiner 
Natur nach so esoterisch, daß es, bevor 
wir dazu eine Lösung präsentieren, erst 
einmal einer Erklärung bedarf, worum es 
überhaupt geht: 

Unter ProDOS hat ein Volume-Directory 
immer eine festgelegte Anzahl von Blocks 
und ist in seiner Anordnung auf dem Vol- 
ume konsekutiv, d.h. die einzelnen 
Blocks, aus denen dieses Directory be- 
steht, folgen direkt aufeinander. Ein Vol- 
ume-Directory, das aus nicht konsekuti- 
ven Blocks besteht (z.B. mit den Block- 
nummern 4, 5, 17, 23) wäre zwar durch die 
Verkettung zwischen den einzelnen 
Blocks (Forward und Backward Referen- 
ce) prinzipiell möglich, wird aber nicht ge- 
nutzt, 


1. Subdirectories unter ProDOS 


1.1. Wie werden Subdirectories 
verwaltet? 


Ein Subdirectory wird anders als ein Vol- 
ume-Directory verwaltet: Bei der Erstel- 
lung dieses Directories mit dem CREATE- 
Befehl des BASIC.SYSTEMSs, das in die- 
sem Fall mit dem CREATE-Befehl des MLI 
identisch ist, wird ein Subdirectory erstellt, 
das aus einem einzigen Block besteht, der 
insgesamt 12 Dateieinträge aufnehmen 
Kann; der erste Dateieintrag wird vom 
Header des Subdirectories belegt. 

Erst wenn versucht wird, einen dreizehn- 
ten Dateieintrag in dieses Subdirectory 
aufzunehmen, wird es vom MLI durch An- 
hängen eines weiteren Blocks entspre- 
chend vergrößert. Dieser Prozeß setzt 
sich bei weiteren Dateieinträgen fort: Für 
die Dateieinträge Nummer 26, 39, 52... 
wird jeweils ein weiterer Block an das Sub- 
directory angehängt. Die Verkettung zwi- 
schen den einzelnen Biocks, die aus je- 
weils zwei 16-Bit-Pointern besteht (Back- 
ward Reference: der vorherige Directory- 
Block hat die Blocknummer xxx — Forward 
Reference: der nächste Directory-Block 
hat die Blocknummer yyy) ist hier unab- 
dingbar. 


Um das zu demonstrieren, nehmen wir 
eine frisch formatierte Diskette, bei der nur 
die Blocks O0 bis 6 belegt sind, und CRE- 
ATEn darauf das Subdirectory SUB. Der 
erste (und einzige) Block von SUB ist da- 
nach der Block Nummer 7. 

Wenn man jetzt dieses Subdirectory durch 
einen „Einzeiler“ mit Dateieinträgen füllt: 


10 FOR X = 1 TO 20: PRINT CHR$(4)"BSAVE 
SUB/TEST"X",A$ 2000, L100": NEXT 


so zeigt ein CATALOG nach Ablauf dieses 
Programms, daß SUB jetzt zwei Blocks 
umfaßt. Wo liegt dieser zweite Block? 


ProDOS-Editor 1.0 


Applesoft-Editor 
unter ProDOS-Betriebssystem 







von U. Stiehl 






1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 







Mit diesem neuen Editor — übrigens 
der bislang einzige deutsche Pro- 
DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 











Unter anderem sind folgende Fea- 
tures implementiert worden: 






— Zeilenorientierter Editor mit jedem er- 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe- 
wegung in allen vier Richtungen, Einga- 
be von Ctrl-Buchstaben in Applesoft- 
Zeilen usw.) 








— Renumber (Zeilen-Umnumerierung) 






— Xreference (sortierte Variablenliste) 






— Suchen von Tokens, Strings und Varia- 
blen 






dezimale und hexadezimale Umrech- 
nungen 






— Ausführung von Monitorbefehlen aus 
dem Editor heraus 







— Listen des Applesoft-Programms_ in 
speicherinterner Form als Hex-Dump 







— Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 


— frei definierbare Tastatur-Macrobefehle 
















Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 












Gerätevoraussetzung: Apple Il+, Ile 
| oder Iic, 40 Zeichen/Zeile 










Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Vorausgesetzt, daß die Diskette außer 
SUB vorher keinen weiteren File enthalten 
hat, belegt TESTI den Block 8, TEST2 
belegt den Block 9 und so weiter, bis zum 
File TEST12, der den Block 20 belegt. Vor 
dem Erstellen von TEST13 wurde eine 
Erweiterung von SUB nötig: Der zweite 
Block von SUB hat damit die Blocknum- 
mer 21. Die weiteren Files TEST13 bis 
TEST2O belegen danach die Blocknum- 
mern 22 bis 29. 


1.2. Nachteil der „normalen“ Sub- 
directories 


Die Folge sollte damit klar sein: Bei einer 
Suche nach dem File SUB/TEST2O (oder 
nur TEST20 nach einem PREFIX SUB) 
liest das MLI zuerst den Block 7 ein (den 
ersten Block von SUB) ung stellt dabei 
fest, daß TEST2O nicht in diesem Block 
eingetragen ist. Da dieser erste Block von 
SUB eine Forward Reference enthält 
(„Subdirectory noch nicht zu Ende“), wird 
danach über diese Referenz der zweite 
Block von SUB gelesen und ebenfalls 
nach dem Eintrag TEST2O abgesucht. 
Zwischen dem ersten und dem zweiten 
Block liegen im mMinimalfall 2 
Datenblocks, nämlich dann, wenn alle 12 
im ersten Directory-Block eingetragenen 
Files jeweils nur einen Datenblock be- 
legen. 

Generell: Zwischen zwei Blocks eines 
Subdirectories liegen sämtliche Files, die 
im „vorderen“ der beiden Directory- 
Blocks verzeichnet sind. 

Durch ein trickreiches Belegen der Disket- 
te kann man den Abstand auch bei größe- 
ren Files auf die erwähnten 12 bzw. 13 
Blocks herunterdrücken, aber diese Gren- 
ze ist auf Benutzerebene nicht zu unter- 
schreiten. 


1.3. Vorteil der mit MAKESUB erstellten 
Subdirectories 


Die Auswirkungen auf die Zugriffsge- 
schwindigkeit werden immer deutlicher, je 
länger das Subdirectory ist und je weiter 
„hinten“ der gesuchte File steht. Mit 
CREATE/NORMSUB/SUB 

wurde ein Subdirectory auf „normale“ 
Weise auf dem Volume /NORMSUB er- 
zeugt, auf einem zweiten Volume /TEST- 
SUB wurde ebenfalls eine Subdirectory 
SUB erzeugt, aber mit dem Programm 
MAKESUB (um das es hier letztendlich 
geht). Danach wurden beide Subdirecto- 
ries nach Setzen des jeweiligen Präfixes 
mit dem folgenden Einzeiler beschrieben: 


10 FOR X = 1 TO 240: PRINT CHR$(4) "BSAVE 
BITS"X",A$2000, L$50": NEXT 
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Schon beim Beschreiben werden die Un- 
terschiede recht deutlich — wir erhalten 
hier eine „mittlere“ Zugriffsgeschwindig- 
Keit, weil der Reihe nach auf den ersten, 
zweiten... bis 240. Dateieintrag zugegrif- 
fen wird. 

Noch eine Anmerkung: Tun Sie Ihren 
Laufwerken diesen Test nicht an — ich 
habe dabei die ganze Zeit ängstlich auf 
Rauchzeichen gewartet. 


Tabelle 1 gibt Aufschluß über die Zeiten, 
die zum Erstellen und Einlesen der Files 
BITS1 bis BITS240 benötigt werden. 

Wie man sieht, lohnt sich ein zusammen- 
hängendes Subdirectory um so mehr, je 
weiter „hinten“ innerhalb dieses Subdi- 
rectories zugegriffen werden muß. 

Bleibt nur noch die Frage zu klären, woher 
der Unterschied von 0,04 Sekunden pro 
Zugriff auf BITS1 herrühtrt: 

Bei einem „normalen“ Subdirectory steht 
dieser File direkt als nächster Block nach 
dem ersten Block von SUB, bei einem mit 
Hilfe von MAKESUB erstellten Subdirec- 
tory liegt das Subdirectory selbst mit einer 
größeren Anzahl von Blocks (bei 240 Files 
sind es immerhin 19 Blocks) dazwischen. 


1.4. Die Theorie von MAKESUB 


Nachdem die Vorteile eines zusammen- 
hängenden Subdirectories damit klarge- 
stellt sind, erörtern wir das Programm 
MAKESUB, mit dem dieses Subdirectory 
erstellt wurde. 


Die erste Möglichkeit wäre ein MLI-Patch 
gewesen; sie scheidet aus mehreren 
Gründen aus: 

a) Patches sollten nur erstellt werden, 
wenn es absolut unumgänglich ist. 

b) Der Patch müßte für die Versionen 1.0.x 
und 1.1.1 verschieden ausfallen. 

c) Ich besitze rund ein Dutzend Versionen 
von DOS 3,3 — manche laden schneller, 
andere zeigen bei einem CATALOG noch 
die Startadressen an, dafür funktioniert der 
INIT-Befehl nicht mehr — das ist mir eine 
Lehre. 


Der Erstellungs- bzw. Erweiterungsprozeß 
eines konsekutiven Subdirectories be- 
steht, wenn er auf legale Weise ausgeführt 
werden sol, aus erstaunlich vielen 
Schritten: 


— Anforderung des Dateinamens und der 
Zahl der gewünschten Blocks vom Be- 
nutzer. 

— GET FILE INFO für dieses Subdirectory. 
Existiert es bereits? 

— Bestimmung des freien Platzes auf dem 
Volume. Ist genügend vorhanden? 


O2 RBB 00 WE. EEE 


— Wenn das Subdirectory noch nicht exi- 
stiert, folgt ein CREATE. 

— Auffinden des Dateieintrags für das Sub- 
directory und Eintrag der neuen Blockan- 
zahl sowie des erhöhten EOF. 

— Zurückschreiben des Dateieintrags und 
Laden des Subdirectories selbst. 

— Anhängen der erforderlichen Anzahl von 
Blocks, die gleichzeitig natürlich auf dem 
Volume belegt werden müssen. 


Auf diese Weise ergeben sich folgende 
Eigenschaften von MAKESUB: 

— Es funktioniert mit allen Versionen von 
ProBDS: 

— Es funktioniert mit jeder Art von Volume, 
d.h. mit 35-, 40-, 80- und 160-Spur-Lauf- 
werken, Festplatten, RAM-Disks usw. 

— Sowohl die Bearbeitung existierender 
Subdirectories (Verlängerung) als auch 
deren Neuerstellung ist möglich. 

Darüber hinaus kann das Volume bereits 
eine beliebige Anzahl von Files enthalten, 
denn MAKESUB versucht, das Subdirec- 
tory mit fortlaufenden Blocknummern zu 
erstellen. Falls Sie vorher einige kurze 
Files gelöscht haben, werden die Block- 
nummern des Subdirectories u.U. nicht 
direkt fortlaufend, sondern nur so dicht 
zusammen wie möglich liegen. 


2. Die Realisierung von MAKESUB 
2.1. Allgemeines 


Ein großer Teil der Unterprogramme ist 
den innerhalb des MLI verwendeten Funk- 
tionen sehr ähnlich — mit einem Uhnter- 
schied: 

Das Programm „weiß“, daß der Eintrag 
des Subdirectories existiert, weil er vorher 
per GET FILE INFO gesucht und entweder 
gefunden oder CREATEd wurde, sowie 
daß genügend Platz auf dem Volume vor- 
handen ist. Damit ersparen wir uns sämtli- 
che Error-Checks innerhalb der Directory- 
Suchroutine sowie bei der Belegung von 
Blocks in der VBM (Volume-Bit-Map). 
Aufgrund der hohen Zahl der logischen 
Einzelschritte habe ich versucht, das 
Hauptprogramm auf deren Aufrufe zu be- 
schränken. Dabei wurden einige Pro- 
grammteile zu Subroutinen, die eigentlich 
nur einmal benutzt werden. 


2.2. Spezielle Probleme 


Schwierigkeiten bereitet eigentlich nur das 
BASIC.SYSTEM bei der Eingabe des 
Dateinamens und der Blockanzahl. Es ver- 
sucht immer wieder einmal „dazwischen- 
zuspuken” und wird deshalb beim Pro- 
grammstart abgehängt. Das Programm en- 
det grundsätzlich mit RESTART, einem 
Sprung zum BASIC-Kaltstart via $03D3, 
wo sich das BASIC.SYSTEM dann selber 
wieder anhängt. 
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1. Dateieintrag 
2. Dateieintrag 


Datel 1 


12. Dateieintrag 


1. Subdir.- 
Block 


13. Dateieintrag 
14. Dateieintrag 


1. Dateieintrag | 
2. Dateieintrag 


2.3. Die einzelnen Routinen 
(in der Reihenfolge des Programmablaufs) 


— DISCONN kopiert die Adressen nach 
$0036 bis $0039, die das BASIC.SYSTEM 
erst dann einsetzt, wenn es intern auf 
DOS-Befehl geprüft hat. Im Normalfall 
sind das die Startadressen der Ein/Ausga- 
beroutinen des Monitors. Damit ist das 
BASIC.SYSTEM „abgehängt“. 

Nach Ausdruck des Programmtitels und 
„Eingabe Filename: “ wird die Monitorrou- 
tine GETLN benutzt, um den Path-Name 
abzufragen. 

— Der anschließende Aufruf von SET- 
PATH bewirkt folgendes: Wenn der Path- 
Name mit einem „/“ beginnt, wird er direkt 
vom Eingabepuffer des Monitors ($0200) 
nach PATH kopiert, ansonsten wird vorher 
ein GET PREFIX durchgeführt und das er- 
haltene PREFIX steht dann vor dem einge- 
gebenen Dateinamen in PATH. Das MLI 
liefert bei GET PREFIX immer Großbuch- 
staben zurück; die Benutzer-Eingabe muß 
gegebenenfalls in Großbuchstaben über- 
setzt werden. 

— GETNUM liefert „Block-Anzahl (Hex): “ 
und erwartet die entsprechende Eingabe, 
die dann via SETNUM von ASCII in eine 
Hexzahl umgewandelt und als BLOCKS- 
WANTED gespeichert wird. Wenn SET- 
NUM irgendwelche illegalen Zeichen in 
der Hex-Eingabe festgestellt hat, kommt 
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Abb.: Blockverteilung vor und nach MAKESUB 
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13. Dateieintrag | 
14. Dateieintrag 


Datei 2 


Datei 13 


25. Dateieintrag 


2. Subklir.- 


Datei 1 





es mit gesetztem Carry zurück, und die 
Aufforderung wird wiederholt. 


— GETSTART ist dann die letzte Möglich- 
keit (außer einem Reset natürlich), das 
Programm abzubrechen. Es wartet entwe- 
der auf ein <RETURN> oder ein <ESC>, 
wobei letzteres zum Abbruch von MAKE- 
SUB führt. 

— Bei GOTSTART wird es dann etwas 
komplizierter: Das Programm nimmt erst 
einmal an, daß das Subdirectory noch 
nicht existiert und speichert BLOCKS- 
WANTED in BLOCKS_NEEDED _ (tat- 
sächlich benötigte Blocks) um. Danach 
wird ein GET FILE INFO für das neue 
Subdirectory durchgeführt. Hier sind nur 
zwei Bedingungen erlaubt, entweder „File 
nicht gefunden“ (TSTFILE gibt in diesem 
Fall ein „EQ“ zurück) oder „File gefun- 
den’. Bei „Volume und/oder Directory 
nicht gefunden“ folgt Abbruch mit „PATH 
NOT FOUND“, 


— Wenn das Subdirectory schon existiert, 
dann muß die Anzahl der bereits belegten 
Blocks von BLOCKS_NEEDED abgezo- 
gen werden. Des weiteren muß dann ge- 
prüft werden, ob dieser gefundene File 
tatsächlich ein Subdirectory ist — falls 
nicht, verabschiedet sich das Programm 
mit „FILE TYPE MISMATCH“. 

— Sollte sich bei einem existierenden Sub- 
directory ergeben, daß die Anzahl „Blocks 


Block 


Datei 13 





gewünscht“ gleich oder gar kleiner der 
bereits belegten Blockanzahl ist, endet 
MAKESUB entweder mit „-Fertig“ oder 
„Verkürzung nicht möglich!“. 

— TSTROOM holt als nächstes via GET 
FILE INFO für das Volume-Directory des 
Volumes die Anzahl der freien Blocks, ver- 
gleicht mit BLOCKS_NEEDED und verab- 
schiedet sich mit „VOLUME FULL“, wenn 
nicht genügend Platz vorhanden ist. 
— Wenn das Subdirectory noch nicht exi- 
stiert hat, wird es jetzt CREATEd und ein 
Block von BLOCKS_NEEDED abgezogen. 
Bleibt dann nichts mehr übrig, d.h. wurde 
BLOCKS_WANTED mit 1 angegeben, ist 
das Programm damit beendet. 

— Ansonsten geht es weiter mit SET- 
ENTRY. Hier wird via GETFILE (s.u.) stu- 
fenweise von dem Volume-Directory bis 
zum Dateieintrag des neuen Subdirecto- 
ries gesucht und PTR auf diesen Eintrag 
gesetzt. Der entsprechende Directory- 
Block, in dem das Subdirectory als Eintrag 
steht, wird dabei geladen. Die gewünschte 
Anzahl von Blocks (BLOCKS_WANTED) 
wird im Dateieintrag gesetzt, genauso wie 
der neue EOF des Subdirectories. Danach 
wird dieser Directory-Block zurückge- 
schrieben, 

— GETDEND sucht zuerst aus dem noch 
geladenen Dateieintrag die Nummer des 
ersten Blocks des Subdirectories heraus 
und liest dann das Subdirectory Block für 
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Block, bis das momentane Ende erreicht 
ist (die Forward Reference zum nächsten 
Subadirectory-Block hat dann den Wert 00 
00). Bei einem Subdirectory, das gerade 
erst via CREATE erstellt wurde, ist das 
bereits beim ersten Block der Fall. 

— APPEND: Wenn wir hier angekommen 
sind, befindet sich der momentan letzte 
Block des Subdirectories im Speicher. Der 
erste VBM-Block des Volumes wird mit 
READVBM gelesen. Danach folgt ein 
Sprung zu SETLINK, denn wir haben min- 
destens noch einen weiteren Block an das 
Subdirectory anzuhängen. 

— SETLINK holt die Nummer des näch- 
sten freien Blocks über GNBLOCK (s.u.) 
aus der VBM und trägt sie in die Forward 
Reference des momentanen Subdirecto- 
ry-Blocks ein. Der Subdirectory-Block 
wird zurückgeschrieben. Wenn der gerade 
geschriebene Block nicht der letzte anzu- 
hangende Block war (beim ersten Aufruf 
immer der Fall, der gerade geschriebene 
Block war der „alte“ letzte Block des Sub- 
directories!), dann wird es kompliziert: 


Wir haben gerade die Nummer des näch- 
sten freien Blocks als Forward Reference 
eingetragen. Diese Forward Reference ist 
also der nächste Block, der bereits belegt 
ist und im folgenden geschrieben werden 
soll. Diese Blocknummer wird nach 
RWBLOCK kopiert. Gleichzeitig braucht 
der neue Subdirectory-Block eine Back- 
ward Reference, also einen Zeiger auf den 
vorherigen Block. Dieser Block wurde ge- 
rade geschrieben. Folge: RWBLOCK wird 
zuerst als Backward Reference in den 
nächsten Block kopiert, bevor es den Wert 
des nächsten zu schreibenden Blocks be- 
kommt. Danach wird der neue Block bis 
auf die eben eingetragene Backward Refe- 
rence gelöscht. 

BLOCKS_NEEDED wird um eins herun- 
tergesetzt: Bleiben dabei keine weiteren 
Blocks mehr übrig, dann ist der eben im 
Speicher vorbereitete Block der letzte und 
erhält keine neue Forward Reference (sie 
bleibt auf dem Wert 00 00). Ansonsten 
wird GNBLOCK wieder aufgerufen und 
liefert de Nummer des nächsten freien 
Blocks, der hier als Forward Reference 
eingetragen wird. 

Die Schleife geht solange, bis BLOCKS- 
_NEEDED den Wert O erreicht und der 
letzte Dir-Block mit einer Forward Refe- 
rence von 00 00 geschrieben wurde. 

Als letztes wird die VBM auf das Volume 
zurückgeschrieben, bevor das Programm 
mit DONE (,„- Fertig.“) endet. 


Von den benutzten Subroutinen seien hier 
nur die beiden komplizierteren be- 
schrieben: 


— GETFILE verwandelt zuerst den ange- 
gebenen Path-Name (+ PREFIX) in die- 
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selbe Form, wie es auch die Routine „Co- 
py and Verify Path-Name" innerhalb des 
MLI tut: Alle „/* im Pfad werden durch 
Längenangaben für die darauf folgenden 
Namen ersetzt. Danach wird — abwei- 
chend von der MLI-Prozedur — gleich der 
erste Name des Pfades (Volume-Name) 
übersprungen; dieser Name ist ja bereits 
durch das GET FILE INFO für das Subdi- 
rectory verifiziert. 


SCANDIRS beginnt mit dem Laden des 
ersten Blocks des Volume-Directories 
(Block 00 02) und holt noch die Blocknum- 
mer des ersten VBM-Blocks für das Vol- 
ume aus dem Header des Directories, be- 
vor der Dateieintrag für den nächsten (hier 
zweiten) Namen des Pfades gesucht wird. 
Die folgenden Schleifen halten sich wieder 
ziemlich dicht an die Original-MLI-Proze- 
dur: Ein Directory-Block wird geladen und 
nach dem entsprechenden Namen im Pfad 
abgesucht, gegebenenfalls durch Nachla- 
den weiterer Blocks des momentanen Di- 
rectories über die Forward Reference. 
Wenn der Name als Eintrag gefunden wird, 
wird der Index innerhalb des Pfades auf 
den nächsten Namen gesetzt (NXTDIR). 
Wenn der Pfad dabei zu Ende ist, haben 
wir den gesuchten File, ansonsten geht 
der Prozeß mit dem nächsten Subdirecto- 
ry weiter. Die Verifizierung, daß neu gela- 
dene Subdirectories auch wirklich Subdi- 
rectories sind und einen Test auf „Directo- 
ry-Ende, Name nicht gefunden“ können 
wir uns hier aus den erwähnten Gründen 
sparen. GETFILE kehrt mit einem gesetz- 
ten PTR zurück, der auf den gefundenen 
Dateieintrag zeigt. 


— GNBLOCK sucht in der VBM den näch- 
sten freien Block, belegt ihn und gibt die 
Blocknummer im Akku und Y-Register zu- 
rück. Auch hier entfallen Tests auf „kein 
freier Block gefunden“; es ist vorher be- 
stimmt worden, ob genügend Platz auf 
dem Volume vorhanden ist. 

Hier ergeben sich notwendigerweise eini- 
ge Bit-Tricksereien: 

Ein Byte innerhalb eines VBM-Blocks ent- 
spricht 8 Blocks, O steht für „belegt“, 1 
steht für „frei“. 

Ein VBM-Block umfaßt $200 Bytes und 
damit $200 x 8, also $1000 Blocks. 

$1000 Blocks mit jeweils 512 Bytes ent- 
sprechen 2 Megabvtes, d.h. wirklich ge- 
nug für eine DISK Il, aber um einiges 
zuwenig für eine ProFile mit 5 MBytes, 
Deshalb gibt es in diesem Fall mehrere 
VBM-Blocks, die allerdings immer konse- 
kutiv auf dem Volume angeordnet sind. 
Die Speicherstelle EXTENT im Programm 
MAKESUB hat eine direkte Entsprechung 
in der MLI-Routine ALLOCATE NEXT 
BLOCK und steht für „x-ter“ VBM-Block 
(die Zählung beginnt mit 0). 


GNBLOCK geht von einem geladenen 
VBM-Block aus und sucht diesen Block in 
aufsteigender Reihenfolge solange ab, bis 
entweder der Block zu Ende ist (dann wird 
der EXTENT erhöht und der nächste Block 
geladen) oder ein Byte mit einem Wert 
ungleich $00 gefunden wird. 


innerhalb dieses Bytes steht das höchst- 
wertige Bit (MSB) für die jeweils niedrigste 
Blocknummer. Zum Belegen des näch- 
sten Blocks werden also solange Bits nach 
links herausgeschoben, bis dabei eine 
Eins abfällt. Durch Mitzählen der Shifts 
ergibt sich ein Index im Bereich von O bis 
7. Das abgefallene Bit wird gelöscht, und 
die restlichen Bits werden wieder auf die 
ursprüngliche Position zurückgeschoben. 
Danach wird das veränderte Byte wieder in 
den VBM-Block geschrieben. 
Die Nummer des so ermittelten Blocks 
ergibt sich aus: 
(EXTENT & $1000) 
+ (Speicherseite innerhalb des VBM- 
Blocks x $800) 
+ (Index innerhalb dieser Speicherseite 
* $08) 
+ (Index innerhalb des Bytes x 1). 


Kurzhinweise 


1. Zweck: 

Erstellung eines zusammenhängenden 
Subdirectories unter ProDOS 

2. Konfiguration: 

II+ mit G/K und LC, Ile oder Ilc; 
ProDOS, alle Versionen 

3. Test: 

BRUN MAKESUB 

4. Sammeldisk: 

T.MAKESUB 
(Big-Mac-Quelltext) 

MAKESUB 
(Maschinenprogramm) 


Tabelle 1 


1. Erstellung von BITS1 bis BITS240 in dem 
Subdirectory SUB: 


1 Stunde, 13 Minuten <-> 41 Minuten 


2, FOR X = 1 TO 10: PRINT CHR$(4) "BLOAD 
BETS1LN NEXT 


7 Sekunden <-> 7,4 Sekunden 


3. FOR X = 1 TO 10: PRINT CHR$(4) "BLOAD 
BITS100": NEXT 


338 Sekunden <-> 17 Sekunden 


4. FOR X = 1 TO 10: PRINT CHR$(4) "BLOAD 
BITS240": NEXT 


l Minute, 30 Sekunden <-> 37 Sekunden 


(Die links angegebenen Zeiten beziehen 
sich auf das „normal“ erstellte Subdirec- 
tory, die rechts angegebenen Zeiten auf 
das mit MAKESUB erstellte Subdirectory.) 
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PrOdos 9.4 


f = u Ai) a a ZZ ——— ES . 
Er 4 = | ad | + } h- F 
di r pP . i F F 
/ 
MAKESUB 0896: 2C 41 09 88 BIT EXISTS 
0O83E: 30 OB 83 BNI SETENIRY 
BSAVE MAKESUB, A$0803. L1?83 0840: 20 26 0A 9% JSR WAREDIR neues DIR CREATE 
08453: 20 2C 09 931 JSR DECNEED BLOCKSNEEDED-1 

ii * _—— — 0846: DO 03 92 BNE SETENTRY bleiben noch Blocks 

2 * MAKESUB * O8AB: AC 24 09 33 JWP DONE fertig 

3 = von Arne Schäpers, 1985 « 4 x 

4A —— [000 DD. 08AB: 20 SE 0A 35 SETENTRY JSR GETFILE sucht SubbIR und setr! 

5 * | OBAE: AO 13 96 LDY #913 PIR auf Dateieintrag 

6 PTR EQU $06 ($07) 08B0: AD 42 09 97 LDA BLWANT Tür das SubDIR 

7 PROMPT EQU $33 für GETLIN 0883: 91 06 98 STA (PIR),Y 

8 COUTV EQU $36 I1/0-Vektoren 0885: C8 99 INY 

an 198 LDA BLWANT+1 BLOCKS_USED im 

10 PATH EQU $280 interner Path-Name 88B9: 91 B6 181 STA \PTR),Y File-kintrag 

ll x BBBB: CB 182 INY 

12  RESTART EQU $3D3 (Pro)DOS-Warnstart B8BC: CB 183 INY 

13 * $8BD: AD 42 89 Ida LDA BLRANT EOF des SubDIR 

14 * Monitor-Routinen: BecH: BA 185 ASL => BLOCKS = $2D8 

15 * BBC1: 91 96 106 STA (PTR),Y und wird gesetzt 

16 HOME EQU $FC58 B8C3: CB 107 INY 

17 GETKEY EQU $FDOC GET ein Zeichen B8CA: AD A3 09 108 LDA BLWANT+H] 

18 GETLIN EQU $FDSF GET eine Zeile BBC7: 2A 189 ROL 

19 PRBYTE EQU $FDDA Print Akku in Hex #8C8: 91 6 116 STA (PTRI,Y BöOF, höchstes Byte 

20  COUT EQU $FDED PRINT BBCA: 28 27 08 11l JSR NLIWRITE schreibt DIR zurück 

21 * 112 * 

22 ORG $803 BBCD: 28 OB PB 113 JSR SETBLOCKl setzt 1.Bl. aus Eintr. 

23 * BeDB: 28 16 OB 114 GETDEND JSR RDBLOCK liest ersten/nächsten 
0803: A2 03 24 LDX #03 R8D3: AD 92 18 115 LDA DIRBUF+2 Block des SubDIR 
0805: BD 30 BE 25 DISCONN LDA $BE30,X BASIC.SYSTEM ab! BBD6: AB 116 TAY nach DIRBUF 
0808: 95 36 26 STA COUTV,X 8807: BD 63 16 117 ORA DIRBUF+3 FORWARD REF = 88 BB? 
080A: CA 27 DEX BBDA: FO 6 118 BEQ APPEND Ja, SubDIR jetzt Ende 
080B: 10 F8 28 BPL DISCONN BSDC: AD B3 18 119 LDA DIRBUF+Z 

29 %* BEDF: AC DE ds 128 JMP GETDEND geht noch weiter 
080D: 20 58 FC 30 JSR HOME 1?71 x 
0810: A2 00 31 LDX #0 PBE2: 20 33 GB 122 APPEND JSR READVBM 1.VBM-Block n. VBNBUF | 
0512: 20.1800 32 JSR PRTI "Erstellung von..." BES: FO 29 123 BEQ SETLINK "always" 
08315: EB 33 INX 124 * 
0816: 20 10 0C 34 JSR PRTMSG "Eingabe Filename: " ÖBET: AD 26 BB 125 NEWBLOCK LDA RWBLOCK+1 Vorbereiten eines 
0819: A9 BA 35 LDA #$BA BEA: AC 25 dB 126 LDY RRBLOCK neuen SubDIR-Blocks: 
081B: 85 33 36 STA PROMPT nn SED: BD 81 18 127 STA DIRBUF+1 die Nummer des zuletz 
081D: 20 6F FD 37 JSR GETLIN BBFB: SC BB 16 128 STY DIRBUF4B gelesenen Blocks wird 
0820: 20 46 09 38 JSR SETPATH Path + PREFIX => $280 BBF3: AD 63 18 129 LDA DIRBUF+3 als BACKWARD REF, 
0823: A2 51 39 GETNUM LDX #GETLEN-MSGS BSFS: AC B2 16 130 LDY DIRBUF+2 die alte FORWARD REF Ä 
0825: 20 10 0C 40 JSR PRTMSG "Block-Anzahl: " Ö8F9: 8D 26 BB 131 STA RWBLOCK+1 als nächste Blocknar. 
0828: 20 6F FD 4l JSR GETLIN BSFC: 8C 25 dB 132 STY RWBLOCK für WRITE eingetragen 
082B: 20 7B 09 42 JSR SETNUM ASCII => Hex 133 + 
082E: BO F3 43 BCS GETNUM illegale Zeichen: Loop BBFF: A2 Bo 134 LDX #9 danach wird der 
0830: A2 66 44 LDX #START-MSGS B9B1: 8A 135 TXA neue Block gelöscht, 
0832: 20 10 060 45 JSR PRTMSG "<CR>=Start, <ESC>,.." #282: 9D B2 18 136 CLRBLOCK STA DIRBUF+2,X 
0835: 20 0C FD 46 GETSTART JSR GETKEY d9B5: 9D B6 11 137 STA DIRBUF+$189,X 
0838: C9 8D 47 CMP  #$8D <CR>? d988: E8 138 INX bis auf die Bytes 96 
083A: FO 07 48 BEQ GOTSTART 0989: DB FT 139 BNE CLRBLOCK und 1 (BACKWARD REF) 
083C: C9 9B 49 CMP_ #$9B <ESC>? 146 - 
083E: DO F5 50 BNE GETSTART N90B: 28 2C 09 141 NATLINK JSR DECNEED BLNEED-1 
0840: AG DB OB 51 JMP EXIT # Abbruch BSBE: FO 89 142 BEQ LINKIB => letzter Block 

52% 316: 28 TE dB 143 SETLINK JSR GNBLOCK nein, nächster Block 
0845: AD 43 09 53 GOTSTART LDA BLWANT+l Anzahl gewünschte #313: 8b 03 19 14d STA DIRBUF+3 wird belegt und als 
0846: AC 42 09 54 LDY BLWANT Blocks => Bals: BC 2 19 145 STY DIRBUF+2 FOWARD REF eingetragen 
0849: 8D 45 09 55 STA BLNEED+l Anzahl benötigte A319: 20 27 dB 146 LINKOR JSR MLIWRITE schreibt den Block 
084C: 86 44 09 56 STY BLNEED Blocks Balc: 20 3A #9 14T JSR TSTNEED noch weitere Blocks? 
084F: AE 41 09 57 LSR BEXISTS Flag zurück ÖIIF: DÖ CE 148 BNE NEWBLOCK 
0852: 20 BF 09 58 JSR TSTFILE sucht SubDIR via MLI 8921: 20 5E dB 149 JSR WRITEVBM VBM zurückschreiben 
0855: FO 36 59 BEQ TSTROOM nicht gefunden 156 * 
0857: C9 00 60 CMP | #$00 SubDIR existiert? 24. B924: AR FR) 151 DONE LDX #DONMSG-MSGS 
0859: FO 03 61 BEQ TSTTYPE 274 9926; .2P ı9 dc 152 JSR PRIMSG "- Fertig." 
085B: AC FF OB 62 JMP NOVOL nein, PATH NOT FOUND % I 9929 AC DB BB 153 JMP EXIT 
0O8S5SE: A9 80 55 TSTTYPE LDA #380 FW 154 * 
0860: 8D 41 09 64 STA EXISTS Flag setzen Ö92C: AD 44 09 155 DECNEED LDA BLNEED setzt BLOCKS_NEEDED 
0863: AD 1B 0A 65 LDA STYPE aus TSTFILE, FILE INFO MO2F: 38 156 SEC um eins herunter und 
0866: C9 OD 66 CMP_ #+S50D ist SubDIR? #930: E9 Bl 157 SBC #81 prüft, ob noch 
0868: FO 03 67 BEQ SETNEED 0932: 8D 44 9 158 STA BLNEED weitere Blocks 
086A: 4C F7 OB 68 JMP BADTYPE "FILE TYPE MISMATCH" #935: BO 93 159 BCS TSTNEED anzuhängen sind 
086D: AD 44 09 69 SETNEED LDA BLNEED SubDIR existiert: #937: CE 45 09 16% DEC BLNEED+1 
0870: 38 70 SEC die Anzahl der W93A: AD 45 9 161 TSTNEED LDA BLNEED+L 
0871: ED 1C0A 7 SBC BLUSED benötigten Blocks B93D: BD 44 89 162 ORA BLNEED beide auf 6? 
0874: 8D 44 09 72 STA BLNEED wird entsprechend 2949: 69 163 RTS 
0877: AD 45 09 73 LDA BLNEED+1l heruntergesetzt 164 + 
087A: ED 1D 0A 74 SBC BLUSED+1 165 EXISTS DS 1 <$8ß, wenn SubDIR neu | 
087D: 8D 45 09 75 STA BLNEED+1 io 
0880: 90 08 76 BCC TOOLONG USED > NEEDED ! 167 BLWANT DS 2 BLOCKS_WANTED 
0882: 0D 44 09 77 ORA BLNEED zusätzliche Blocks 168 BLNEEB DS 2 BLOCKS_NEEDED 
0885: DO 06 78 BNE TSTROOM = 00 00? 169 % 
0887: AC 24 09 79 JMP DONE nichts zu tun... 176 seslslsissinlsisinlsitsisisiinniinkh 
OB8A: AC FBOB 80 TOOLONG JMP BADLEN a 171 % 

8l * 0946: A2 99 172 SETPATH LDX &#ß6 
088D: 20 DB 09 82 TSTROOM JSR GETROOM GET F'INFO VolDIR ß948: BD 60 d2 173 LDA $od2B0,x 
0890: BO 03 83 BCS ROOMOK und Test BLOCKS_FREE Ö94B: 29 TE 174 AND %#$7F Start des Path 
0892: 4C 03 0C 84 JMP NOROOM "VOLUME FULL" B9AD: C9 2F 175 CMP #'/! Data? 

85 x* Ö9AF: FO BE 176 BEQ GOTPATH 
0895: AD 30 BF 86 ROOMOK LDA $BF30 "last used Unit" 0951: 28 O0 BF 177 JSR $BF68 ansonsten 
0898: 8D 22 0B 87 STA RWUNIT für BLOCKREAD/WRITE B954: 07 178 DFB $c7 GET PREFIX 
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Verkauf Hardware: 


2 Siem. Slim. Lauf Contr. 
500M; 2 TEAC (FD55F) 2x40/80 


Ehr. ©. DM 620,-; OLYMPIA 
(DP165) Matr. DR.; Ile Enhanced 
128K-Kompa + Operator + Mou- 
se + Äccel. + 80Z, Z80B Swyftc. 
Timem IIH.O, Uhr, Joyst. Softw. 
Neuw. VS+BN, Tel. 0228/67 7423 


Fernschreiberinterface am 
Gameport m. Programm DM 79,—- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


Apple Ii+ {Komp.), |BM-Look, 
2LW, Z80, 64K, Uhr, DR-Schhnitt, 
80 Zeichen, jede Menge SW und 
Literatur. 063 81/1580 (VHB: DM 
2400,-) 


Apple comp. PC, 2LW, Wx. 
Tastatur Monitor 80ZK 
HB+Software DM 1890,— Printer 
MP/80 inc. Interrace EPSON 
comp. DM 658,- Monitor, Drives, 
Zusatzkarten. Preis auf Anfrage. 
IFC Computer, Tel. 02245/4737 


OPERATOR Tastatur lie DM 
420,-; WILDCARD (+/e) DM 
300,-;5 PREMIUM Softcard Ile 
(Z80B, CP/M, 80ZZ+64K) DM 
650,-; TEAC FD55A+Contr. DM 
290,-— Imagewriter + Kabel DM 
850,- Par. Int. (ÖLYMPIA von (B&K) 
DM 160,-; Tel. 02801/1786. 


Apple II Interface-Karten in ver- 
schiedenen Ausführungen Opto- 
koppler-Karte ab DM 85,— 
6522-Karte ab DM 95,- 
Stimmiler Elektronik 
Heinlenstraße 34, 7400 Tübingen 
Tel. 07071/74544 


Z80B-Karte mit 64KB RAM + 
256KB-RAM-Karte für Apple incl. 
Pseudodisksoftware und Betriebs- 
systemanpassung DOS, CP/M + 
Pascal zusammen DM 700,-, 
G. Hain, Tel. 09122/77711 


Mac Profi Speichererweite- 
rung 128  5i2KB DM 498-, 
Baus. 189,-, Fa. Schlösser ab 
17.00 Tel. 089/985889 


Apple Il+/e 512 KB-Ramdisk, 
Treiber für CP/M 2.20, 2.23, PRO- 
DOS, UCSD 1.1, 1.2, DOS. Info 
kostenlos. Tel. 07031/36210 


SUPER-Tastatur für Apple 
II+ und kompat., MAK II von Mul- 
titech für DM 376,-, Video 1000 
DM 279,-, Grappler+ DM 155,-, 
HEKO-elektr., PF 5413, 7750 
Konstanz 
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Drucker Speedy 100-830, wenig 
benutzt DM 600,-. 
Tel. 0511/6040778 


Orig. Apple Scribe Printer, 
farb. + grafikfähig, neuwertig nur 
DM 520,-!!! Tel. 07202/8131 


Apple Ile, 2 Disk Il mit Contr. 
80Z + RGB, Taxan-Farbmonitor, 
Z80 Superserialcard, Imagewriter, 
Joystick, Paddle, 16 Handbücher 
alles org. nur kompl. VB DM 
6000,-, Tel. 02602/60258 ab 18 
Uhr 


Verkaufe 7 St. Apple |le/c/+ 
mit Laufwerken, Maus, Z-80, 80Z, 
Video-Digitizer, Joyst., 128K, 
SSC, Epson-Modem, Literatur, 
MX-80 Drucker ... 
Räumungsverkauf wegen System- 
wechsel ca. zum halben Neupreis. 
Asolf Lazi Schule Stuttgart, 

Tel, 0711/7240609 


Z80H (AP22) 8Mhz mit Soft- 
ware DM 650,-, 256K RAM Disk 
(AP17) mit Software DM 300,-, 
Tel. 02507/1490 


Profile Harddisk 10MB mit 
Acc. Kit zu Apple Il Preis VS, 
Tel. Schweiz 061 /478934, 

Hr. Brunner 


CPA-80 Matrixdrucker neu- 
wertig mit Kabel für DM 650,— zu 
verkaufen, Tel. 02351/79280 


| Verkauf Software | 


lle+c: G:;._ paint: exakte 
Zeichnunger ”. Beschriftung (2 
Stärken), 40 Funktionen, 80 fertige 
Symbole für ‚=spläne + 
elektr. Schalt. worden, oD 
Disk: DM 99,- SCH" AHme van 
M.-Müller-Ring Fibovu Mainz 


Apple: Public Domain, Kermit: 
Pro Volume DM 15,-. Games, 
Schach, Graphic u.v.a. m. Derw. 
Lehrerprogramme, die Graphik- 
sprache 'Minilogo'! Gratisinfo: Fa. 
Waltraud Muhle, Waldwinkel 3, 
2105 Seevetal 3 


Verk. weg. Systemw. Einzel- 
stücke alles Orig.: Print Shop DM 
75,-; Apple Business Graphics DM 
330,-; Quick File Ile DM 110,-; Flight 
Simulator IE DM 90,-; Visischedule/ 
Netzplantechnik DM 180;-; 

Tel. 02801/1786 


Verkaufe EXBASIC LEVEL ||, 
Basicerweiterung für Apple Il, DM 
250,-. Tel. 04706/1022 


Schach WM 85: Alle Partien für 
CHESS 7.8: Disk. DM 45,- GO- 
Progr. (Hayden): Disk. DM 65,—. 
Tel. 04481/1540 


dBase Il, registriertes Origi- 
nalprogramm, für DM 800,- abzu- 
geben. Tel. 04743/5500. 


*<KXXSTOCKMASTER I1?**** 
Das Apple Il-Programm für echte 
Börsengewinne. Diskette nur DM/ 
SFr. 485,-. Beschreibung ’pe0O2’ 
anfordern bei: Töngi Computer- 
Praxis, Aspeltstr. 4, 6500 Mainz. 
für die Schweiz: Denton Consul- 
tants AG, Auwisstr. 17, CH-8127 
Forch/Zürich. 


BASPLUS H, 30 neue Basic-Be- 
fehle für Apple Il+/e/c. z.B. neuer 
INPUT m. Insert u. Delete usw. In- 
fo kostenlos bei Guido Schrörs, 
Corneliusstr. 29, 4154 Tönisvorst 1 


Schönschrift-Editor für 
PANASONIC-Drucker unter 
Apple-CP/M (80-Ze.-K.) Komfor- 
table Bedienung mit SCHREIB und 
CUBIC. Nur DM 89,-. Tuxhorn, 
St.-Zweig-Str. 45, 4400 Münster, 
Tel. 02533/1804 


3000 000,— Gewinnen??? 
Softcontrol Lotto-Prg. (LOT2000) 
Alle bisherigen Ziehungen abge- 
speichert. Auswertungen und Zie- 
hungen automatisch. Wird auf 
Apple II-CP/M-Diskette geliefert. 
Preis komplett mit P/V DM 29,90 
Manfred Filbrich, Hauptstraße 22, 
3171 Adenbüttel, Tel. 05304/1764 


u 
APPLEWORKS für Ile, Ilc we- 
gen Systemwechsel zu verkaufen, 
Originalzustand nur 1X eingesetzt! 
VB DM 500,-. Effer, Köln, 
Tel. 0221/687859 


CP/M 3.0 — komfortabel & 
schnell - für Apple //e und //c. 
Patch nur DM 95,-. Gratisinfo an- 
fordern! Jörg Stattaus Software, 
Hollandtstr. 55, 4400 Münster 


Software Uhr für Apple |I+, e, 
c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,— Oecking 

Tel: Do. 0231/39 1920 


Ankauf Software 


PASCAL-Terminal Progr. Ge- 
sucht. Tel. 07344/5245 


Suche Listschutz-Progr. für 
PRODOS, Chiffre-Nr. P1007 


PEEKER 494994 


Wir suchen komfortable 
Faktura (PRODOS) f. Apple Ile 
mit kompletter Lagerbewirtschaf- 
tung, Statistik, Rückstand, Gut- 
schrift usw. 

Intercolor, A-6850 Dornbirn, 

Tel. 0043-55 72-647 10 


Wer paßt CP/M an Apple 
compat./Z80 an oder verkauft 
Apple-CP/M? Tel. 0941 /795955 


Ankauf Hardware 


Suche Laufwerk für Apple 
II+; Seeger u.d. Schanz 17, 7135 
Wiernsheim 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, 0. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Absolute Neuheit für Apple 
He!!! Umrüstung auf 32 fest und 5 
frei programmierte Tasten. EPROM 
DM 87,—. F. Fuhrmann, Schwarz- 
waldstr. 38, 7530 Pforzheim. Info g. 
Rückporto. 


Wir reparieren Ihren Apple 
komp. ASC-Elektronik, Hirschgra- 
ben 9-11, 5100 Aachen, Tel, 
0241/25226 


Ihre Erphi-Vertretung für die 
Schweiz: Beltronic, Im 
Chapf, 8455 Rüdlingen, Tel. 
0186731 41, Telex 825 981. 


Suche Vertriebspartner für 


meine Iler-Profisoftware. E. Heinz 
Waldgürtel 7, 5060 Berg. Glod. 1 
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Für Ihre Unterlagen 
Abonnement bestellt 


am: _ 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 
Poststempels). 


Peeker 
Leserservice 


Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 
Folgende Bücher bestellt: 


am: 
bei: 


Peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 


am: 

bei: 

Peeker 
Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 
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Ja, ich möchte Peeker abonnieren. 

Liefern Sie mir Peeker ab Ausgabe ............... zum Jahresbezugspreis 
von DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Verpak- 
kung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für das 
Ausland beträgt DM 72,- inkl. MwSt., zzgl. DM 18,— Versandspesen. 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


a Abo-Karte 


Bank / PschA 
Bankleitzahl Kio.-Nr. 
Datum Unterschrift 


EEkKER 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


in 








Datum Unterschrift 
a 


DEEKkER 44 


Bitte senden Sie mir gegen Rechnung folgende Disketten: 


Da Buch-Karte 






8924; A2 Fa m 
=: 20: 





[] Peeker-Sammeldiskette, einzeln Apple DOS 3.3, Begleitdiskette, DM 28,— 
Disk# ______, Disk+# ProDOS, Band 1, Begleitdiskette, DM 28,- 
Disk# _____, Disk# ProDOS, Band 2, Begleitdiskette, DM 28 - 


Preis je Disk DM 28,- (einzeln) 


[| Peeker-Sammeldiskette, 
im Fortsetzungsbezug 
ab Disk + 
(Mindestbezug 6 Disketten) 
Preis je Disk DM 20,- 
Neben DOS-Disketten auch liefern 
[1 CP/M ja LI CP/M nein 
[] Pascalia LI Pascal nein 


Apple Assembler, Begleitdiskette, DM 28,- 
ProDOS-Editor 1.0, Programm, DM 98,— 
MMU 2.0, Programm, DM 98,— 

INPUT 2.0, Programm, DM 98,- 
Softbreaker 1.0, Programm, DM 48,- 
DB-Meister, Programm, DM 290,- 
Superplot, Programm, DM 48,— 
Superquick, Programm, DM 48,— 

Turtle Graphics, Programm, DM 98,— 


are area 


Datum Unterschrift 


= 
x 
Q 
O 
= 
O 
27 
. 










Name 










Firma 





Abtellung 















Straße 





PLZ/Ort 


Vertrauensgarantle: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

14 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Posistempels). 









Dalum 







Unterschrift 


Verlagshinwels: 
Das Abonngment verlängert sich zu den jeweils gültigen 







Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 








Karte bitte vollständig ausfüllen 


Vorname, Name 


n 
2 | 


PLZ/Ort 


Telefon mit Vorwahl 


ah Buch-Karte 





Karte bitte vollständig ausfüllen 


Vorname, Name 


3 


Strafe 


FZOr 


Telefon mit Vorwahl 


= Software -Karte 


POSTKARTE 


Peeker 
Leserservice 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 


für DOS 3.3 und ProDOS 

von. Stiehl 

1984, Diskette und Manual, DM 98,— 

ISBN 3-7785-1021-5 

„Input 2.0“ liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u, a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder IIc; fer- 
ner Apple Il+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98. — 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple lie) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple Il Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48,- 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprögramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended BO Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen, 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 


B955: 59 
#957: FB 
#959: 81 
BI5A: 


B95C: 
B95F: Ad 
B961: BY 
B964: 
B966: CI 
8968: FÜ 
B9SA: C9 
dg6C: IP 
BIEE: 29 
#978: SD 
9973: E8 
8974: CB 
975: DA 
977: SE 
Ö9T7A: 60 


RO7B: A2 
B97D: 
A98B: 
#983: BD 
B986: C9 
#988: FO 
BIY8A: C9 
B98C: 90 
Ö98E: 
#998: AB 
#992: 38 
#993: E9 
#995: 99 
B997: C9 
#999: 998 
B99B: E9 
Ö99D: C9Y 
Ö9SF: BB 
B9Al: BE 
BYAA: 
Ö9AT: 88 
B9AB: DB 
B9AA: BD 
BYAD: 8D 
B9BÖ: E8 
AS9Bl: DI 


Ö9B3: AD 
B9B6: BD 
Ö9B9: FO 
ÖSBB: 18 
ASBC: 6% 
B9BD: 
ÖSBE: 69 


BSBF: 20 
BSC2: CA 
963: 14 
#905: C9 
B9C7: FO 
89C9: C9 
ASCB: FB 
BSCD: E9Y 
BSCF: C9 
BSD1: 98 
| B9D3: 69 
A9D5: AC 
ASDB: AB 
BIDA: 68 


ÖSDB: 
ASDE: 
BSDF: A2 
ÖSIEL: E8 
BIER: 
B9E5: C9 
Ö9ET: 
B9ESY: 
B9EC: 29 
ÖIEF: CA 
AIFA: 14 
BSF?2: FA 
B9FA: AC 
B9F7T: 68 
ASFS: 8D 
A9SFB: AD 
BYIFE: 38 
Ö9FF: ED 
DAB2: AA 
BABZ: AD 
BAd6: ED 


Peeker 3/86 


99 
83 


82 


7F 92 
0 
DB 92 
Tr 
dD 
ÖD 
69 
B2 
5F 
80 92 


EA 
TF 82 


8 
a2 09 
43 89 
DB 92 
8D 
29 
EB 
02 
DF 
84 


B9 
26 
DA 
B6 
a7 
19 
1C 
42 89 
43 89 


F7 
42 89 
42 09 


DA 


42 09 
43 89 
82 


B8 BF 


DA 
45 
11 
29 
ÖB 
44 
2 
95 
43 
EA @B 
FF 


TE 82 
ln) 


80 92 
2F 
F8 
7F 92 
BB BF 


BA 
83 
EA OB 


TF 82 
19 dA 


1C BA 


1A BA 
1D SA 


179 
18% 
181 
182 
185 
184 
185 
186 
187 
188 
189 
199 
191 
192 
193 
194 
105 
196 
197 
198 
139 
209 
281 
202 
203 
204 
205 
206 
207 
288 
209 
218 
21 
At 
213 
214 
215 
216 
aAR 
218 
219 
229 
2e2zl 
222 
223 
end 
ARD 
226 
227 
228 
2e3 
230 
231 
252 
233 
254 
235 
256 
237 
238 
239 
RAD 
24al 
242 
243 
244 
245 
246 
247 
248 
249 
25B 
201 
292 
253 
254 
255 
206 
297 
258 
259 
260 
26l 
262 
263 
264 
265 
266 
267 
268 
269 
270 


PFXLIST 
* 
GOTPFX 


GATPATH 
COPYPATH 


ISUt 


PATHSET 
* 


SETNUM 


NXTNUM 


ISCAPS 


ISNUM 


* 
NUMSET 


BADNUM 


* 
TSTFILE 


TSTZ 
TSTEND 
* 
GETROOM 


GETVDIR 


GOTVDIR 


DA 
BEQ 
DFB 
DA 


LDX 
Dr 
LDA 
AND 
CMP 
BEQ 
CMP 
BCC 
AND 
STA 
INX 
INY 
BNE 
STX 
RTS 


LDX 
STX 
STK 
LDA 
CMP 
BEQ 
CMP 
BCC 
AND 
LDY 
SEC 
SBC 
BCC 
CMP 
BCC 
SBC 
CMP 
BCS 
ASL 
ROL 
DEY 
BNE 
ORA 
STA 
INX 
BNE 


LDA 
ORA 
BEG 
ELC 
RTS 
SEC 
RTS 


JSR 
DFB 
DA 

CMP 
BEQ 
CMP 
BEQ 
SBC 
CMP 
BCC 
ADC 
JMP 
LDY 
RTS 


LDA 
PHA 
LDX 
INX 
LDA 
CMP 
BNE 
STX 
JSR 
DFB 
DA 

BEQ 
JMP 
PLA 
STA 
LDA 
SEC 
SEC 
TAX 
LDA 
SBC 


PFXLIST 
GOTPFX 
81 
PATH-1 


PATH-1 
+0 
$B200,Y 
#57F 
+$65D 
PATHSET 
+$69 
ISUC 
#$5F 
PATH,X 


COPYPATH 
PATH-1 


+99 
BLWANT 
BLWANT+1 
$9200,X 
+#$8D 
NUMSET 
+$EP 
ISCAPS 
#+$DF 
+94 


+$BQ 
BADNUM 
#BPA 
ISNUM 
+507 
+$19 
BADNUM 
BLWANT 
BLWANT+] 


ISNUM 
BLWANT 
BLWANT 


NKXTNUM 


BLWANT 
BLWANT+1 
BADNUM 


$BFBB 
$C4 
INFOLIST 
#846 
TSTEND 
#599 
TSTZ 
+$44 
+$02 
TSTZ 
+$43 
MLIERR 
+$FP 


PATH-1 
+09 


PATH,X 
if! 
GETVDIR 
PATH-1 
$BFOB 
604 
INFOLIST 
GOTVDIR 
MLIERR 


PATH-1 
AUXRTN 


BLUSED 


AUXRTN+1 
BLUSED+1 


"always"! 
1 Parameter 
Ziel: $827F 


Gesamtlänge 


Path wird von $28# 
nach PATH kopiert 
Path-Ende? 


Kleinbuchstabe? 


Umwandlung in groß 
bzw, an das PREFIX 
angehängt 


Gesamtlänge 


wandelt ASCII-String 
in BLOCKS_WANTED um 


<CR>? 
Zahl zu Ende 


Umwandlung in groß 


minus "N" 
keine Zahl 
IugjER Pipe "g9n 

Tan Ber tm ? 

nein 

alte Zahl = 16 


neue Zahl dazu 


Zahl > BB 00? 


GET FILE INFO 
für das neue SubDIR 


FILE NOT FOUND? 


File gefunden? 

Ja, ist auch o.„k. 
Fehler im 

Bereich $44-45? 
ja, PATH NOT FOUND 
=> ERR# für MLIERR 


löscht Z-Flag 


Gesamtlänge des 
Path speichern 


und nur das VolDIR 
herausholen 
Ende erster Name? 


nur VolDIR-Name 


GET FILE INFO 
für VolDIR 
"MLI-Fehler: $xx" 
RESTORE des Fath 
TOTAL_BLOCKS auf 
dem Volume minus 
belegte Blocks auf 
dem Volume ergibt 
BLOCKS_FREE 


MARS: 
BABC: 
BABE: 
BAIB: 
MAILS: 


BAIA: 
BA15: 


BA2B: 
BA29: 
BARA: 
BA2C: 
BAZE: 
BAZ1: 


BA32: 
MASS: 
BA3S: 
MASS: 
DA3T: 
BA39: 
DASZA: 
BAD: 


BASE: 
BA4l: 
DAAZ: 
BAA4A: 
BAAG: 
BAAT: 
BAAR: 
BAAC: 
DAAE: 
BAAF: 
BAS2: 


BAS4: 
BAST: 
BASS: 
BASB: 
BASD: 
BASF: 
MAS2: 
QA65: 
PAGE: 
DAGB: 


BASE: 
DATO: 
BAT73: 
DATE: 
DATB: 
BATB: 
DATE: 
BA81: 


MABS3: 
DABE: 
BABT: 
DABB: 
BASB: 
BABE: 
BASB: 
DAS3: 
BA9BG: 
BASIS: 
BASB: 


BASC: 
BASE: 
BAAG: 
BAAZ2: 
DAAZ: 
BAAG: 
BAAS: 
BAAB: 
BAAR: 
BABl: 
BABA: 
BABT: 


BABA: 
BABD: 


BACB: 
BACR: 


CD 
= 
D® 
EC 
69 


DA 
TF 


AE 
E8 
8E 
Ad 


20 
AD 
AC 
8D 
sc 


AC 
8C 


85 
&5 





45 89 271 
85 272 
B3 273 
44 09 274 
275 
276 
27T 
B2 278 
279 
280 
281 
282 
283 
284 
0 BF 285 
286 
DA 287 
93 288 
EA 6B 289 
299 
291 
292 
92 293 
294 
295 
un) 296 
297 
BB dB 298 
299 
TF 92 300 
FF 381 
362 
dE 303 
394 
sg d2 305 
2F 306 
F5 307 
398 
sd d2 309 
ED 318 
311 
ed d2 312 
313 
ÖB dB 314 
82 315 
nn) 316 
12 dB 317 
28 10 318 
27 18 319 
TD dB 320 
TC dB 321 
322 
8D 323 
ÖC BB 324 
96 BA 325 
dB 326 
3 18 327 
B2 18 328 
1® 6B 329 
Fo 330 
331 
dB ÖB 332 
333 
334 
80 02 335 
TF 02 336 
öB 337 
BB Q@B 338 
dB dB 339 
16 0B 349 
D3 341 
342 
343 
16 344 
87 345 
94 346 
347 
ÖC dB 348 
12 349 
24 10 3598 
PD dB 351 
23 18 352 
DE BB 353 
ÖE OB 354 
BC BB 355 
356 
ÖD BB 357 
ÖF ÖB 358 
359 
d6 369 
d7 361 


ROOMGOT 
* 
INFOLIST 


AUXRTN 
STYPE 
BLUSED 


* 
MAKEDIR 


MKDONE 
* 
CRLIST 


* 
GETFILE 
RPL1 
RPL2 


* 
SCANDIRS 


* 
DIRSET 


DOSCAN 


* 
NXTDIR 


GOTFILE 
* 


SCAN 


x 
NOTIST 


* 
NATENTRY 


CMP 
BCC 
BNE 
EPX 
RTS 


DFB 
DA 
DS 


DS 
DS 
DS 


JSR 
DFB 
DA 

BEQ 
JMP 
RTS 


DFB 
DA 

DFB 
DFB 
DA 

DFB 
DFB 


LDX 
LDY 
DEX 
BMT 
INY 
LDA 
CMP 
BNE 
TYA 
STA 
BNE 


LDX 
INX 
STX 
LDY 
LDA 
JSR 
LDA 
LDY 
STA 
Sr 


LDX 
STX 
JSR 
BCC 
LDA 
LDY 
JSR 
BEQ 


LDX 
TXA 
SEC 
ADC 
CMP 
BCS 
STA 
JSR 
JSR 
BEQ 
RTS 


LDA 
STA 
LDA 
CLC 
BIT 
BPL 
LDY 
Sud 
LDY 
STY 
ADC 
LSR 


LDY 
SH 


STA 
LDA 


prodos 44 


BLNEED+l benötigte Blocks 
ROOMGOT kein Platz! 
ROOMGOT o.K. 
BLNEED 
C=ß, => kein Platz 
$0A 1d Parameter 
PATH-1 Pathname 
2 ACCESS, File Type 
2 AUX_INFO 
]: Storage Type 
2 BLOCKS_USED 
8 DATE & TIME 
$BFO® 
$C9 CREATE des SubDIR 
CRLIST 
MKDONE 
MLIERR 
$97 7 Parameter 
PATH-1 Pathnane 
$c3 ACCESS 
SOF File Type: DIR 
0098 AUX_TYPE 
SD Storage Type: SubDIR 
9,0,8,9 DATE & TIME 
PATH-1 Gesamtlänge 
#$FF 
der Path wird von 
SCANDIRS "/xxx/yyyy" in 
die Form: 
PATH,X <B3>xxx<PA>yyyy 
4/1 überführt, d.h, 
RPL2 alle "/" im Path 
werden durch Längen- 
PATH,X bytes ersetzt 
BPLI1 
PATH+9 Start mit dem zweiten 
Namen im Path 
PATHIDX (nach dem VolDIR) 
+$92 und dem ersten Block 
#509 des VolDIR 
RDBLOCK READ Block $8062 
DIRBUF+$28 
DIRBUF+$27 
VBMNO+1 Blocknummer des 
VBMNO ersten VBM-Blocks 
+$89 Flag: erster Block 
BLOCK1 wird gesetzt 
SCAN sucht nach Path-Namen 
NXTDIR dieser Name gefunden 
DIRBUF+3 FORWARD REF: Setzen 
DIRBUF+2 des nächsten DIR-Bl, 
RDBLOCK liest den Block 
DOSGAN "always" 
PATHIDX war dieser Name 
der letzte im Path? 
PATH,X Index a. nächst, Namen 
PATH-1 = Gesamtlänge? 
GOTFILE 
PATHIDX nein, nächster Name 
SETBLOCK1 im Path. Der erste Bl. 
RDBLOCK des hier gefund., DIR 
DIRSET wird gelesen => Loop 
mit PTR a. neu, SubDIR| 
#>DIRBUF sucht einen DIR-Block 
FIRrFL nach einem Namen im 
+504 Path a. File-Eintr. ab 
BLOCK1 1, Block dieses DIR? 
NOTIST nein 
DIRBUF+$24 
ENUMBER Einträge pro Block 
DIRBUF+$23 
ELENGTH Länge eines Eintrags 
ELENGTH HEADER überspringen 
BLOCKl Flag zurück 
ENUMBER BEinträge/Block 
ECOUNT Herunterzähler 
PTR 
PTR+1 PTR auf ersten/ 


29 


BACA: 
BACE: 
BACB: 
MACB: 
DACD: 
BADB: 
BAD2: 
BADA: 
BADS: 
BADB: 


BADB: 
BADC: 


MADD: 
BADF: 
BAER: 
BAR: 
PAES: 
BABES: 
BAEB: 
BAEC: 
AED: 
BAFB: 
BAFI: 
| BAF3: 
BAF6: 
BAFB: 
BAFS: 
BAFA: 
BAFC: 
BAFD: 
QAFE: 
BAFF: 


BBOB: 
AB92: 
BBPB4: 
BBBS: 
ABRB6: 
BBP8: 
BB#9: 
BBAA: 


BB1B: 
9B13: 
ABl6: 
ÖB19: 
BBIA: 
BBIC: 
ÖBlE: 


@B21: 


AB23: 


BB2T7: 
BBRA: 
BB2B: 
AB2D: 
BBZF: 
BB32: 


MB33: 
BB35: 
BB38: 


ÖB3B: 
BB3E: 
ÖB3F: 
BBA2: 
BB45: 
BB4B: 
BAR: 
BBAD: 
BB5B: 


BB53: 
AB56: 
BB5T: 
AB59: 
BB5B: 


ÖBB5E: 
ÖB6&l: 


30 


8D 
8C 
20 
80 
2l 
ro 
ac 


#3 
aD 


20 
81 
21 
Fß 
ac 
67 


A9 
8D 
8D 


AD 
18 
6D 
8D 


69 
8D 
AD 


28 
80 


FB 
ac 


2C 
18 


dB 


DD 
ÖF 
ÖF 
89 
d6 


DE 
c9 


B8 
DB 
de 
ÖF 
89 
13 


dB 
d6 


8 
d6 


FS 


12 
B6 


d6 


26 
25 
DH 


BB 


14 
EA 


19 


80 
ÖB 
83 
EA 
BB 
TB 


TC 


78 
76 


29 
77 


22 


B9 


BB 
16 
EA 


TB 
dE 


BA 
dB 


dB 
BA 


BB 


d2 


BB 


B2 


BB 
DB 
BF 


dB 


BF 


dB 


dB 
dB 


BB 
dB 
BB 
DB 
dB 
dB 
dB 


BF 


BB 
ÖB 


362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 
392 
393 
394 
395 
396 
397 
398 
399 
add 
ABl 
402 
463 
404 
465 
496 
407 
408 
499 
Alp 
4ıl 
412 
413 
414 
415 
416 
417 
418 
419 
429 
a2l 
422 
423 
ara 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
Aa 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 


* 


NOTFOUND 


GOTNAME 
* 
CMPNAME 


CMP1 


NOTSAME 


* 


SETBLOCKIl LDY 


* 
PATHIDX 
BLOCK 
ENUMBER 
ELENGTH 
ECOUNT 
* 
RDBLOCK 


* 
RWLIST 
RWUNIT 


RWBLOCK 
* 


MLIWRITE 


RWDONE 
* 
READVBM 


# 
GETVBM 


+ 


ADC 
STA 
JSR 
BCC 
DEG 
BEQ 
LDA 
CLC 
ADC 
JMP 


SEC 
RTS 


LDY 
LDX 
LDA 
AND 
CMP 
BNE 
TAY 
CLC 
ADC 
TAX 
LDA 
CMP 
BNE 
DEX 
DEY 
BNE 
CLC 
RTS 
SEC 
RTS 


LDA 
PHA 
DEY 
LDA 
TAY 
PLA 
RTS 


DS 
DS 
DS 
DS 
DS 


STA 
31% 
JSR 
DFB 
DA 

BEQ 
JMP 


DFB 
DS 
DA 
DS 


JSR 
DFB 
DA 

BEQ 
JMP 
RTS 


LDA 
STA 
STA 


LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 


JSR 
DFB 
DA 

BEQ 
JMP 


WRITEVBM BIT 


BPL 


+00 
PTR+1 
CMPNAME 
GOTNAME 
ECOUNT 


NOTFOUND 


PTR 


ELENGTH 


NXTENTRY 


+09 
PATHIDX 
(PTR},Y 
+$dF 
PATH,X 
NOTSAME 


PATHIDX 
ÜBER) 


PATH,X 
NOTSAME 


CMP1 


+$12 
(PTR),Y 


LEIRISY 


a a a a 


RWBLOCK+1 


RWBLÖCK 
$BF@ß 
$89 
RWLIST 
RWDONE 
MLIERR 


$03 

il 
DIRBUF 
2 


$BFOB 
$81 
RWLIST 
RWDONE 
MLIERR 


+09 
BXÄTENT 
ALTERED 


VBMNO 


EXTENT 
VBLOCK 
VBMNO-+L 
+09 


VBLOCK+1 


RWUNIT 
VUNIT 


$BFOQ 
$89 
VBMLIST 
GOTVBM 
MLIERR 


ALTERED 
GOTVBM 


nächsten Eintrag 

im Block 

vergl. Eintrag & Path 
gefunden! 

noch Einträge übrig? 
nein, Block-Ende 


PTR auf nächst. Eintr, 


Index z. moment. Namen 
l.Byte v, File-Eintrag 
=> Namenslänge 

= Path-Nanme? 


start des Vergleichs 
von hinten 


Namen sind gleich 


holt die Nummer 
des ersten Blocks 
im File aus den 
File-Eintrag nach 
A-Y 


Index in PATH 
Flag:$86, b. 1.DIR-Bl. 
Anzahl Eintr. /DIR-Bl. 
Länge eines Eintrags 
Zähler im DIR-Block 


Aufruf mit 
Blocknr. in A-Y 


READ BLOCK 


"MLI-Fehler: $xx" 


3 Parameter 
Unit-Nummer 
Ziel/Quelle: 
Blocknummer 


DIRBUF 


WRITE BLOCK 
Blocknr, ist gesetzt! 


"MLI-Fehler: $xx" 


VBM-Block Nummer ] 
unverändert! 


Nummer 1.VBM-Block 


y-ter" VBN-Block 


Blocknummer Hi 


Unit-Nummer 


READ BLOCK 


"MLI-Fehler: $xx" 


verändert"? 
nein, kein REWRITE 


AB63: 
| ÖB66: 
®B69: 
MBEA: 
BBEC: 
BEE: 


BB7l: 
BB72: 


BB74: 


ÖBTE: 
BBEB: 
ÖB83: 
AB85: 
BBBT7: 


BB89: 
PBBB: 
ÖB8ED: 
ÄBBE: 
BBSB: 
BB92: 
hB95: 
BBSI8: 
BBSA: 


BBSC: 
ÖBYF: 
ÄBAR: 
QBA5: 


BBAT: 
BBAY: 
BBAA: 
BBAC: 
ÖBAD: 
BAF: 
BBB2: 
BBB3: 
BBBA: 
ÖBB5: 


ÖBB7: 
ÖBB9: 
ÖBBB: 


ÖBBE: 
ÖBtCl: 
ABC2: 
BBC5: 
ABCB: 
BBC9: 
BÖBCB: 
ABCC: 
ÄBCF: 
BD: 
ÖBD2: 
BBD5: 
ABDE: 
ABD9: 


ÖBDB: 
MBDD: 
ABEB: 
ÖBE3: 
ÖBES: 
ÖBET: 


ÖBEA: 
ÖBEB: 
ABED: 
BBF®: 
ÖBF1: 
BBFA: 


AD 
8C 
84 
49 
85 


D® 


A9 
20 
29 
A9 


ac 


48 
A2 
20 
68 
2d 
ac 


TB 
D9 


dB 
B3 
EA 


12 


BB 
73 
B6 
12 
07 


B6 
1A 


F9 
d7 
79 
79 
02 
ED 
SE 
78 


33 
DT 


D8 
3 


FA 
TA 


7B 
78 


73 
DA 


3 
DA 


F9 


DA 


8D 
ED 
ED 


48 
D3 


BA 
dB 


DA 
DB 


BB 
BF 


BB 


BB 


dB 
dB 


dB 
BB 
öB 


BB 


BB 
dB 


dB 
BB 


öB 


BB 
BB 


FD 
FD 


D3 


dc 


FD 
dB 


454 
455 
456 
457 
458 
459 
469 
461 
462 
463 
464 
465 
466 
467 
468 
469 
A7B 
a7 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
498 
491 
492 
493 
494 
495 
496 
497 
498 
499 
5A8 
581 
592 
593 
564 
585 
506 
507 
508 
569 
51 
511 
512 
513 
514 
515 
516 
517 
518 
519 
528 
521 
522 
523 
524 
525 
526 
527 
528 
529 
538 
531 
532 
533 
534 
535 
536 
537 
538 
539 
549 
541 
542 
543 
544 
545 


* 
GOTVBM 
* 
VBMLIST 
VUNIT 


VBLOCK 
* 
EXTENT 
PAGE 
INBYTE 
+ 
ALTERED 
VBMNO 

* 
GNBLOCK 


* 
TSTBYTE 


* 
GETBIT 
GETBl 


GOTBIT 


GOTBL 


xX8 


LSR 
JSR 
DFB 
DA 

BEQ 
JMP 


RTS 


DFB 
DS 
DA 
DS 


DS 
DS 
DS 


DS 
DS 


LDY 
STY 
Sr 
LDA 
STA 


LDA 
BNE 
INY 
BNE 
ING 
INC 
LDA 
CMP 
BCC 


JSR 
INC 
JSR 
BEQ 


LDX 
ROL 
BCS 
INX 
BNE 
STK 
CLC 
ROR 
DEX 
BPL 


STA 
LDA 
STA 


LDA 
ASL 
ORA 
STA 
TYA 
LDY 
ASL 
ROL 
DEY 
BNE 
ORA 
TAY 
LDA 
RTS 


* 
BLOCKHI DS 


+ 


ee nn 2 2202. 
#---EXIT--——* 
EERFRRRETER 


* 
EXIT 


* 
MLIERR 


LDA 
JSR 
JSR 
LDA 
STA 
JMP 


PHA 
LDX 
JSR 
PLA 
JSR 
JMP 


ALTERED 
$BFOB 
$81 
VBMLIST 
GOTVBM 
MLIERR 


503 

]' 
VBMBUF 
=) 


it 
1 
l 


1 
2 


+B9 
PAGE 
PTR 


#>VBMBUF 


EIRrl 


(PTR).Y 
GETBIT 


TSTBYTE 
PIRFL 
PAGE 
PAGE 
#d2 
TSTBYTE 


WRITEVBM 


EXTENT 
READVBM 
GNBLOCK 


#0 
GOTBIT 


GETBl 
INBYTE 


GOTBl 


ÜBTR)SY 
+$80 
ALTERED 


EXTENT 


PAGE 
BLOCKHI 


+03 
BLOCKHI 


X8 
INBYTE 


BLOCKHI 


+$8D 
COUT 
COUT 
3300 
$48 
RESTART 


sonst Flag zurück 


BLOCK WRITE 


"MLI-Fehler: $xx" 


3 Parameter 
Unit-Nummer 
Zziel/Quelle: 
Blocknummer 


VBMBUF 


!y-ter" VEM-Block 
Seite im VBM-Block 
Index in e. VBM-Byte 


$80: VBM-Block veränd. 
Blocknr. 1. VBM-Block 


belegt den nächsten 
freien Bl. und returnt 
Blocknr. in A-Y 
Adresse Hi 


mind. 1 Block frei! 


Speicherseite-Zähler, 
wird für Bestimmung 
der Blocknr, benötigt 


REWRITE dieses VBM-El. 
nächster VBM-Block 


=> Loop 


holt ein gesetztes 
Bit aus den Akku 
und zählt dabei mit 


A..7: Nummer des Bits 
dieses Bit löschen! 
und Restore des Akku 


Block belegt in VBM 
dieser VBM-Block muß 
zurückgeschr, werden 


x-ter" VBM-Block: 
Blocknumner + $1%d9 
"Seite" darin: 
Blocknumner * $8ß® 
Index in der Seite: 
Blocknumner + $98 


insgesamt * 8 


+ B...7 
Blocknummer Low 


Scratch: Blocknr. Hi 


2mal <CR> 


TR 
DOS-Warnstart 


Fehlernumnmer 


#DSKERR-MSGS 


PRTERR 


PRBYTE 
EXIT 


'MLI-Fehler: $" 


ERR# in Hex 
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ÖBFT: 
ABF9Y: 


ÖBFB: 
| ÖBFD: 


BBFF: 
ÖCBL: 


ACcH3: 


BcBS: 
\ dcH8: 


ÖCHB: 
ÖCHD: 


BC1P: 
Ac12: 
de15: 
BC1B: 
BCIB: 
ACID: 
BCIF: 
BC22: 
BC23: 
BC25: 


| AC26: 
BC29: 
BUS]: 
BC39: 
9041: 
9043: 
BC45: 
ÖC48: 
Bc58: 
ÖC58: 
BCc6B: 
BC6l: 
BC64: 
ACET: 
ÖCEF: 
BC76: 


BC7T: 
BCTA: 
BC82: 
BCBA: 
BCEB: 


ÄCEC: 
ÖCSF: 
BC97: 
CHF: 
CAS: 


ÖCAG: 
ÖCAS: 
BCAF: 


RCBB: 
BCB3: 
ACBB: 
ACBB: 
RCBE: 
BCc1: 
Acc: 
ÖCDB: 
BCD1: 
ÖCD4A: 
ÖCDTC: 
BCEA: 
ACER: 
BCEB: 
ÄCEE: 
BCF6S: 
ACF9: 
BCFA: 
ACFD: 
8DB5: 





A2 
DO 


A2 
D® 


A2 
DY 


A2 


98 
DA 


AB 
d6 


c5 
#2 


D4 


BB 
DE 


87 
ED 


8D 
ED 
ED 
26 


8 
ED 


P3 


T2 
65 
6F 
T2 
73 
8D 
69 
64 
74 
6B 


8D 
69 
61 
6E 


SC 
SB 
29 


43 
3D 
sc 
62 


28 
T2 


ac 
46 
24 


49 
zB 
53 


65 
7D 
69 
66 


4] 
zB 
AE 


AF 
4D 


1283 Bytes 
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BC 
ÖB 


FD 


FD 
FD 
BC 


73 
66 
6E 
65 


74 
65 
65 
2D 


7 
SE 
62 
61 


6F 
2D 
28 


52 
23 
45 
12 


46 
7A 


49 
65 


ac 
54 
4D 


72 
TR 
63 
69 


54 
AB 
Ad 


a6 
45 


546 
547 
548 
549 
55% 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 

Sc 75 

20 53 

63 74 


575 
976 
66 69 
T2 20 
41 6E 


977 
578 
65 29 
6D 65 
579 
58ß 
581 
41 6E 
4B 65 


382 
383 
584 
74 61 
53 43 
75 63 
585 
586 
987 


69:67 
588 
989 
599 

68 6C 


591 
592 
59 59 
al 54 
593 
994 
TA 75 
68 74 
63 68 
595 
996 
ar 54 


997 
598 
20 46 
339 
GH 
661 
692 


BADTYPE 


se 
BADLEN 


* 
NOVOL 


* 
NOROOM 
* 

SETERR 


* 
PRTERR 


* 
PRTMSG 


PRT1 


PRDONE 

* 

MSGS 

6E 67 29 
75 62 64 
GE 72 63 


6E 69 65 
42 6C 6F 
7A 61 68 


46 69 6C 
3A 28 


* 
GETLEN 
TA 61 68 
78 29 3A 


* 

START 

72 74 2 
SE SD 41 
685 


* 
DONMSG 


ZE 


* 
DSKERR 
65 72 3A 


BADTÄT 
45 2D AD 
43 48 


LENTXT 
6E 67 20 
28 6D 7C 
2] 


BADYOL 
28 46 AF 


VOLFULL 
55 dc AC 


* 
DIRBUF 
VBMBUF 


LDX 
BNE 


LDX 
BNE 


LDX 
BNE 


LDX 


JSR 
JMP 


LDA 
JSR 


LDA 
JSR 
JSR 
LDA 
BEQ 
ORA 
JSR 
INX 
BNE 
RTS 


ASC 


DFB 
ASC 


DFB 
ASC 


DFB 


DFB 


ASC 


DFB 


ASC 


DFB 
ASC 


DFB 
ASC 


DFB 
ASC 


DFB 
ASC 
DFB 


EQU 
EQU 


#BADTXT-MSGS 
SETERR "FILE TYPE MISMATCH" 


#LENTXT-MSGS 
SETERR "Verkürzung 1;%5 " 


#*BADVOL-MSGS 
SETERR "PATH NOT FOUND" 


#*VOLFULL-MSGS 


PRTERR 
EXIT 


#587 
COUT 


BELL 


+$8D 
COUT 
COUT 
MSGS,X 
PRDONE 
+680 
COUT 


zmal <CR> 


<ßß>: Text-Ende 


PR "always" 


'Erstellung von Subdirectories' 


$8D,$8D 
'mit definierter Block-Anzahl'! 


$8D,$8D, 99 
'Eingabe Filename: ' 
öR 


'Block-Anzahl (Hex): ' 


4%) 
'<CR>=Start <ESC>=Abbruch' 
D» 

'- Fertig" 

17) 

'MLI-Fehler: $' 


D9 
'FILE TYPE MISMATCH' 


Ds 


'Verkürzung nicht möglich! ' 


1) 
'PATH NOT FOUND ' 


B8 
'VOLUME FULL' 
DB 


51909 
DIRBUF+$289 





P Rodos ne Achtung Autoren! 


Wenn Sie ein Buch oder eine Software 
nicht bei uns finden, warum schreiben Sie 
diese nicht für uns? 

Zur Erweiterung unseres Verlagspro- 
grammes in den Sparten EDV und Elektro- 
technik suchen wir ständig Autoren, die 
wie wir »Qualität« und »Zuverlässigkeit« 
hoch einschätzen. Im Bereich Home- und 
Personal-Computer haben auch schreib- 
freudige Hobby-EDVler die Möglichkeit, 
ihre besonderen Kenntnisse umzusetzen. 
Die Erfahrung eines renommierten Fach- 
buch-Verlages wird Ihnen schon beim 
Abfassen des Manuskriptes zu Nutze 
kommen. Und unsere Konditionen sind 
interessant. 


Sprechen Sie uns doch einmal ganz un- 
verbindlich an: 
Abt. Buchverlag 


Postfach 10 28 69 


Hüthig 6900 Heidelberg 


Dr. Alfred Hüthig Verlag |i 


Wegen der 

neuen Programme 
paßt die neue 
Begleit- 

diskette 

nur zur 

3. Auflage. 


Apple DOS 3.3 — 
Tips und Tricks 


von U. Stiehl 

3., völlig überarb. Aufl. 1986, X, 203, 

mit zahlreichen, ausführlich kommentierten 
Programmlistings, kart., DM 28,— 
Begleitdiskette ebenfalls DM 28,— 


Dr. Alfred Hüthig Verlag : Postf. 10 28.69 - 6900 Heidelberg 1 
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Ulrich Stiehl 





Datentypen, Unterprogramme, Strings, Dateien 





Dieser Aufbaukurs, der sich nahtlos an den 
Grundkurs anschließt, befaßt sich mit Datenty- 
pen, Unterprogrammen, Strings und Dateien, 
wobei als neue Befehlswörter eingeführt 
werden: 

Datentypen: TYPE; BOOLEAN, FALSE, TRUE; 
ODD, CHR, ORD; SET, IN; ARRAY, RECORD 
Unterprogramme: LABEL, GOTO; PROCE- 
DURE, FUNCTION 

Strings: String; #J; Lengih, Concat, Pos, Copy, 
Delete und Insert (allesamt benutzerdefiniert) 
Dateien: FILE, TEXT, REWRITE, RESET, GET, 
PUT, SEEK, READLN, WRITELN, EOF; INPUT, 
DUTBUT 

Die Befehliswörter WITH, PACKED, FORWARD, 
EOLN, PAGE, PR, CHAIN, NEW, DISPOSE und 
NIL sind aus Platzgründen ausgespart worden. 
Statt dessen wurden die Standard-Datentypen 
REAL usw. nochmals vertiefend beschrieben. 
Die Bereiche „Kyan-Pascal und Assembler 
und „Hochauflösende Grafik in Kyan-Pascal“ 
werden in gesonderten Aufsätzen behandelt. 
Insgesamt umfaßt der zweiteilige Kyan-Kurs 
über 110.000 Anschläge und ersetzt damit das 
englischsprachige Kyan-Manual. 


1. Datentypen 


Ein Computer dient per definitionem der Verar- 
beitung von Daten (= Datenverarbeitungsanla- 
ge). Zunächst wurden als Daten nur Zahlen 
verarbeitet, wie dies heute noch bei Taschen- 
rechnern der Fall ist. Dann kamen Zeichen und 
Zeichenketten hinzu, und nunmehr werden 
auch grafische Gebilde (Grafiken, Plot-Vektoren 
usw.) als Daten verarbeitet. Der Vorteil von Pas- 
cal gegenüber BASIC liegt nicht in der Vielfalt 
der Datentypen, sondern in deren müheloser 
Bildung oder Konstruktion. 


Datentypen können im VAR-Teil implizit nach 
dem Doppeipunkt „:" oder im TYPE-Teil explizit 
nach dem Gleichheitszeichen „=" definiert 
werden. Besonders bei den komplexen 
Datentypen (Array, Record) ist die explizite De- 
finition im TYPE-Teil vorzuziehen. Die im TYPE- 
Teil definierten Typen können auf die Konstan- 
ten des vorangehenden CONST-Teils und die 
im VAR-Teil definierten Variablen auf die Typen 
des vorangehenden TYPE-Teils Bezug neh- 
men. Vereinfachtes Beispiel: 


PROGRAM DEMOLA; 
VAR 

I: INTEGER; {implizit} 
BEGIN 

T ©= 10- WRITEEN (T) 
END, 


PROGRAM DEMOIB; 
TrPE 
INT = INTEGER; {explizit} 
VAR 
I. SLNT, 
BEGIN 
I. 2 2105 WRITELN (LT) 
END, 


Mit der Definition {hier lediglich Umbenennung) 
eines Datentyps ist es jedoch noch nicht getan. 
Vielmehr muß man auch wissen, in welcher 
Form man diese Daten verarbeiten kann. Leider 
stellt das Kyan-Manual die Datentypen nackt in 
den Raum, ohne zu präzisieren, welche Befehle 
für sie implementiert wurden. Daß man bei- 
spielsweise mit WRITELN einen ganzen Zei- 
chen-Array, nicht aber einen ganzen Zahlen- 
Array ausgeben kann, wird nicht besonders ver- 
merkt. In Wirklichkeit mußte in Kyan-Pascal für 
die Ausgabe eines ganzen Zeichen-Arrays eine 
gesonderte Ausgabe-Routine implementiert 
werden. Es wird jedoch verschwiegen, daß die 
WRITELN-Routine nur beim 

String = ARRAY [1..255] OF CHAR 

und nicht etwa beim 

String = ARRAY [1..16384] OF CHAR 
funktioniert. (Das High-Byte fällt unter den 
Tisch!) 


Exkurs „vom Typ“ 

In der Informatik hat sich die abwegige Rede- 
wendung „vom Typ Boolean, vom Typ Real, 
vom Typ Integer“ usw. breitigemacht (s. Bücher 
von N.Wirth und Epigonen), die offenbar dieser 
Disziplin einen wissenschaftlichen Änstrich, 
nein, einen Anstrich vom Typ Wissenschaft ver- 
leihen soll. Zu sagen, „1.5 ist eine Dezimal- 
zahl“, wäre eine Formulierung, die jeder ver- 
steht. Das darf nicht sein! Da klingt es schon 
viel besser, wenn man schreibt: „1.5 ist eine 
Konstante vom Typ Real“. Würde ein Wirth- 
Epigone im Restaurant schlicht „Berner Rösti" 
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bestellen, so wäre dies eine Rede vom Typ 
Mensch. Und der Respekt des Volkes wäre 
dahin. Unmöglich! Daher pflegt der wahre Infor- 
matiker zu ordern: „Bitte eine finite Menge Rö- 
sti vom Typ Bern“, worauf ein gewitzter Kellner 
kontern könnte: „Diese werden nur in Häusern 
vom Typ Toll serviert!“ 

Wohlgemerkt: Ich störe mich nicht an dem 
Fremdwort „Typ“ oder an der „von“-Konstruk- 
tion. Ich kritisiere nur die Verwissenschaftli- 
chung einer Trivialität. Denn „Datentyp“ heißt 
nichts anderes als „Datenart" und „Typ“ nichts 
anderes als „Art“. Betrachten wir hierzu das 
Wirth-Zitat aus „Spektrum der Wissenschaft", 
Sonderheft Computer-Software, 1985, S. 20: 
„Sind alle Komponenten von gleichem Typ, so 
heißt der zusammengesetzte Typ homogen“. 
Übersetzt man „Komponenten“ mit „Teilen“, 
„von gleichem Typ“ mit „gleichartig“ und „ho- 
mogen“ (homos = gleich, genos = Art)“ eben- 
falls mit „gleichartig“, dann entsteht: „Sind alle 
Teile gleichartig, so heißt die zusammengesetz- 
te Art gleichartig”, was offenbar Unfug ist. 
Übersetzt man „homogen“ mit „aus gleicharti- 
gen Teilen zusammengesetzt", dann entsteht: 
„Sind alle Teile gleichartig, so heißt die zusam- 
mengesetzte Art aus gleichartigen Teilen zu- 
sammengeseltzt”, was offenkundig eine Tauto- 
logie ist. 

Auf diese Weise produzieren „Datentypisten“, 
d.h. auf Datentypen spezialisierte Informatiker, 
mit gespreizten Redewendungen schiere Bana- 
litäten. 


Meist gliedert man die Pascal-Datentypen in 
statische und dynamische Typen (Zeiger), wo- 
bei die statischen Typen sich weiter unterteilen 
in skalare und strukturierte Typen. Zu den skala- 
ren Typen gehören die Standard-Typen {Inte- 
ger-, Real-, Char- und Boolean-Typen) sowie 
die benutzerdefinierten Typen (Aufzählungs- 
und Ausschnittstypen), und zu den strukturier- 
ten Typen gehören die Record-, Array-, String-, 
Set- und File-Typen. 

Aus praktischen und didaktischen Gründen ha- 
ben wir eine etwas andere Gliederung gewählt: 
Einfache Typen: Ganzzahl, Dezimalzahl und 
Einzelzeichen. 

Spezielle Typen: Wahrheitswert, Aufzählung, 
Bereich und Menge. 

Komplexe Typen: Datensatz, Feld, Zeichenket- 
te und Datei. 

Auf die Darstellung von Zeiger-Typen wurde 
aus Platzgründen verzichtet. 


1.1. Einfache Typen 


Ganzzahl = Integer-Typ 
VAR I:INTEGER 
Dezimalzahl = Real-Typ 
VAR R: REAL 
Einzelzeichen = Char-Typ 
VAR C: CHAR 


1.1.1. Ganzzahl (Integer) 


Integer-Zahlen sind Ganzzahlen im Bereich 
-32767 bis +32767, die intern 2 Bytes belegen. 
Sie können als Konstanten definiert werden, 
zB: 

CONST IK = 10; 

wobei für den maximalen Integer-Wert auch die 
Systemkonstante MAXINT verwendet werden 
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kann. Die Vorzeichen 
EB, = 
dürfen nur bei der Konstantendefinition und der 
einfachen Wertzuweisung, z.B. 
IK = -MAXINT; oder 
:= -10; 
nicht jedoch bei Ausdrücken bzw. Termen, z.B. 
l:=-IK + -IK; {falsch} 
verwendet werden. Notfalls muß man einklam- 
mern: 
‘= (-IK) + (-IK); 
Einfache Integer-Variablen definiert man übli- 
cherweise im VÄR-Teil mit dem Typ-Bezeichner 
INTESER zB: 
VAR |:INTEGER; 
Für Integer-Zahlen sind die mathematischen 
Operatoren 
+, -,%*, DIV, MOD, 
die Vergleichsoperatoren 
a ee 
die Funktionen 
SQOR, ABS, 
ROUND, TRUNG, 
die „skalaren“ Funktionen 
PRED, SUCC, ORD 
sowie die Zuweisung 


== 


implementiert. Mit den Befehlen 

|:= ROUND (R); und 

| := TRUNGC (R); 

kann eine Real-Zahl im Bereich -32767 bis 
+32767 in eine Integer-Zahl umgewandelt wer- 
den. Einer Real-Variablen kann eine Integer- 
Variable zugewiesen werden, z.B. 

R:= 1 + |; {zulässig} 

nicht jedoch umgekehrt 

I:=R+R; {verboten} 

es sei denn indirekt über ROUND und TRUNG, 
Z.B, 

|:= ROUND {R) + ROUND {R); 

Die Funktion ODD (odd = ungerade; Geg.: 
even = gerade) hat als Argument eine Integer- 
Variable und als Funktionsergebnis eine boole- 
sche Variable (s.u). Beispiel: 


PROGRAM DEMO2; 


VAR 
B: BOOLEAN; 
I: INTEGER; 
BEGIN 
I:=3; B := 0DD (T}; {B = TRUE} 
IF B= TRUE THEN WRITELN ('ungerade'); 
I:=2;B := 0ODD (I}; {B = FALSE} 
IF B= FALSE THEN WRITELN ('gerade') 
END, 


Die Befehle READLN und WRITE/WRITELN 
sind uneingeschränkt auf Integer-Variablen an- 
wendbar, z.B. 

READLN (I); {nicht READ (I)} 

WRITELN (l); {auch WRITE (l)} 

READLN konvertiert automatisch die eingege- 
bene ASCiIl-Ziffernfolge (Zahlenstring) in die 
interne Integer-Form (2 Bytes), während 
WRITELN die interne Integer-Form wieder als 
Ziffernfolge sichtbar macht. Befehle für die Um- 
wandlung einer Integer-Zahl in einen Zahlen- 
string und umgekehrt sind nicht vorgesehen. 


1.1.2. Dezimalzahl (Real) 


Real-Zahlen sind Dezimalzahlen bzw. Fließ- 
komma-Zahlen im Bereich -1.0E99 bis 
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+1.0E99, die intern 8 Bytes belegen (BCD- 
Darstellung mit einer 13stelligen Mantisse). Sie 
können als Konstanten definiert werden, z.B. 
CONST RK = 9.9E+99; 

Eine Systemkonstante („MAXREAL“ analog zu 
MAXINT) fehlt. Für die Vorzeichen 

I; = 

gelten die obigen Ausführungen analog. 
Einfache Real-Variablen definiert man üblicher- 
weise im VÄAR-Teil mit dem Typ-Bezeichner RE- 
AL, z.B. 

VAR R: REAL; 

Für Real-Zahlen sind die mathematischen Ope- 
ratoren 

+,-.,%/, 

die Vergleichsoperatoren 

<,=,>, <=, >=,.<>, 

die Funktionen 

SIN, COS, ARCTAN, LN, EXP, SORT, 

SQOR, ABS 

sowie die Zuweisung 


— 


implementiert. Die „skalaren“ Funktionen 
PRED, SUCC und ORD funktionieren hier nicht. 
Die Funktionen SIN, COS, ARCTAN, LN, EXP 
und SQRT können als Argument (in runden 
Klammern) wahlweise einen Real- oder einen 
Integer-Ausdruck haben, doch liefern sie als 
Ergebnis (= Funktionswert) stets eine Real- 
Zahl. Die Funktionen SOR und ABS liefern ein 
Real-Ergebnis im Falle eines Real-Arguments 
und ein Integer-Ergebnis im Falle eines Integer- 
Arguments. Beispiel: 


PROGRAM DEMO3; 


VAR 

I, IE: INTEGER; 

R, RE: REAL; 
BEGIN 
R := 142; 

I := 132; 
RE := SIN {R); WRITELN (RE); 
RE := SIN (I); WRITELN (RE); 
RE := SQR {R); WRITELN (RE); 
IE := SQR (I); WRITELN (IE) 
END 


Die Befehle READLN (nicht READ!) und 
WRITE/WRITELN sind uneingeschränkt auf Re- 
al-Zahlen anwendbar, wobei READLN automa- 
tisch die eingegebene ASCII-Ziffernfolge (Zah- 
lenstring) in die interne Real-Form (8 Bytes) 
konvertiert, während umgekehrt WRITELN die 
interne Real-Form wieder als Ziffernfolge sicht- 
bar macht. Befehle zur Konvertierung von Inte- 
ger-Zahten in Real-Zahlen oder von Zahlen- 
strings in Real-Zahlen und umgekehrt sind nicht 
vorgesehen. 


1.1.3. Einzelzeichen (Char) 


Einzelzeichen („characters“) sind ASCII-Zei- 
chen (= Buchstaben, Ziffern, Sonder- und 
Steuerzeichen), die intern je 1 Byte belegen. 
Jedem ASCiIl-Zeichen ist eine Nummer von 0 
bis 255 zugeordnet (s. ASCII-Tabelle in Peeker, 


1/85, 5.934). 

Einzelzeichen können als Konstanten in der 
Form 

CONSTCK='A); 


festgelegt werden werden. Einzelzeichen-Va- 
riablen definiert man üblicherweise im VAR-Teil 
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mit dem Typ-Bezeichner CHAR, z.B. 

VAR ©: CHAR; 

Für Einzelzeichen sind die Vergleichsopera- 
toren 

ae >... 

die Funktionen 

SUCC, PRED, 

die Konvertierungsfunktionen 

CHR, ORD 

und die Zuweisung 

implementiert. Die Befehle READ{LN) und 
WRITE(LN) sind mit gewissen Einschränkungen 
auf Einzelzeichen anwendbar. 

Mit den Funktionen CHR und ORD lassen sich 
Integer-Char-Konvertierungen vornehmen 
(ORD = ordinal number = Ordnungszahl = hier 
ASCI-Nummer; CHR = character = hier 
ASCII-Zeichen). 

|:=ORD (C); 

weist der Integer-Variablen I die ASCII-Nummer 
der Char-Variablen C zu. 

C:= CHR (l}; 

weist der Char-Variablen C das ASCII-Zeichen 
mit der ASCII-Nummer | zu. 

Man beachte, daß sich die Zuweisung mit 
Apostroph 

EV: 

nur auf sichtbare ASOII-Zeichen mit Bit 7 off 
(ASCII-Nummern 32-127) erstreckt. Demge- 
genüber ist bei der Zuweisung mit Hilfe der 
CHR-Funktion jedes Einzelzeichen (ASCII- 
Nummern 0-255) definierbar. Die CHR-Funk- 
tion ist jedoch nicht bei der Konstantenfestle- 
gung zulässig: 

CONST CR = CHR (13); {verboten} 

Eine ähnliche Einschränkung hinsichtlich der 
Steuerzeichen im ASClII-Bereich 0-31 ist bei 
der Tastatureingabe mit Hilfe des READ- bzw. 
READLN-Befehls gegeben. Man verwende 
deshalb die RDKEY-Funktion aus dem Grund- 
Kurs. 

Beispiel: 


PROGRAM DEMOA; 
VAR 
C: CHAR: 
I: INTEGER; 
BEGIN 
Ball 
WRITELN (SUCC (C)); {'c'} 
WRITELN (PRED (C)); {'A'} 


Gar 
I := ORD (C}; WRITELN (I); {65} 

I := 65; 

C := CHR (I); WRITELN (0); {'A'} 

GC := '''t; WRITELN (C); {Apostroph!} 
Ge lg 

Ir Gr 772: THEN WRTITBENI IV 7220): 
FORC =" ! 70 !B?7 DO WRITE (GC); 
WRITELN 

END. 


1.2. Spezielle Typen 


Wahrheitswert = boolescher Typ 

VAR B: BOOLEAN 

Aufzählung = skalarer Namenstyp 

TYPE NAME = ({N1, N2, N3) 

Bereich = Bereichstyp 

TYPE BEREICH = ANFANG..ENDE 
Menge = Set-Typ 

TYPE MENGE = SET OF ANFANG, .ENDE 


1.2.1. Wahrheitswert (Boolean) 


Die bereits bekannten Vergleiche mit 

<,=, >, <=, >=, <> und 

NOT, AND, OR, z.B. 

ERS 2, IHEN 

erzeugen implizit Wahrheitswerte (entweder 
wahr oder falsch), die auch explizit einer boole- 
schen Variablen zugewiesen werden können, 
ZB. 

B:=(1<2); 

Ein Wahrheitswert belegt intern 1 Byte. Da es 
bereits die vordefinierten Systemkonstanten 
TRUE und FALSE gibt, sind selbstdefinierte 
boolesche Konstanten, z.B. 

CONST BK = TRUE; 

wenig sinnvoll, 

Boolesche Variablen werden üblicherweise im 
VAR-Teil mit Hilfe des Typ-Bezeichners BOO- 
LEAN definiert, z.B. 


VAR B: BOOLEAN; 

Für Wahrheitswerte sind die Vergleichsopera- 
toren 

<,=, >, <=, >=, <>, 

die logischen Operatoren 

NOT, AND, OR, 

die „skalaren“ Funktionen 

SUCE, PEED, ORB 

und die Zuweisung 


implementiert. Die FILE-Befehle EOLN und 
EOF (s,u.) sowie der SET-Befehl IN (s.u.) liefern 
ebenfalls boolesche Resultate. Die direkte Ein- 
und Ausgabe von Wahrheitswerten über 
READLN und WRITELN ist in Kyan-Pascal nicht 
möglich. 

Intern wird FALSE durch O0 und TRUE durch 1 
(bzw. <> O) dargestellt. Deshalb gilt: FALSE 
kommt vor TRUE, TRUE kommt nach FALSE. 
Trotzdem dürfen boolesche Ausdrücke nicht mit 


Integer-- oder Real-Ausdrücken gemischt 
werden: 
WRITELN 10 & (1 = 1); {verboten} 
Anstelle von 
IFB = TRUE THEN... 
kann man auch 
IFBTHEN... 
und anstelle von 
.. UNTILB = FALSE; 
kann man auch 
=UNIENOTB; 
verwenden. Beispiel: 
PROGRAM DEMOS: 
VAR 
Bl, B2: BOOLEAN: 
BEGIN 
Bl := (A: = Val). STROM) 
Ba tra = eipi), Imalsp) 
{knapper:} 
IF Bl THEN WRITELN ('w’); 
IF NOT B2 THEN WRITELN ('£')}; 
{klarer:;} 
IF Bl = TRUE THEN WRITELN ('w'); 
IF B2 = FALSE THEN WRITELN ('f'): 
Bl := PRED (TRUE); {FALSE} 
B2 := SUCC (FALSE); {TRUE} 
IF Bl < B2 THEN WRITELN ('£f-w'): 
{0 ANDO = 0 
0 AND 1=0 
lANDO=0 
lAND1=1} 
FOR Bl := FALSE TO TRUE DO 
FOR B2 := FALSE TO TRUE DO 
WRITELN (ORD (Bl), ' AND ', ORD (B2), 
= ', ORD (Bl AND B2)) 
END. 
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Eine boolesche Variable läßt sich in eine Inte- 
ger-Variable mit 

|:= ORD (B); 

umwandeln. Umgekehrt kann eine Integer-Va- 
riable im Wertbereich O bis 1 mit 

B:= (l= 1); 

in eine boolesche Variable konvertiert werden. 


1.2.2. Aufzählung (Namenstyp) 


Die Aufzählung oder der Namenstyp ist eine 
geordnete Folge von Namen NO, N1, N2... 
(nicht von Werten). Ein Aufzählungsname wird 
als skalar (von „Skala“) bezeichnet, weil er 
intern als natürliche Zahl (NO = 0, NI = 1 usw.: 
2 Bytes pro Name) gespeichert wird. Sinnge- 
mäß sind die skalaren Funktionen 

PREE, SUECE FORD. 

die Vergleichsoperatoren 

<, >, =3,<=, >= <> 

und die Zuweisung 

auf Namenstypen anwendbar. Ein Aufzählungs- 
name darf nicht im CONST-Teil festgelegt wer- 
den. READLN und WRITELN sowie sonstige 
Befehle sind nicht implementiert. Die Definition 
einer Aufzählung erfolgt im VAR-Teil, z.B. 

VAR NAME: (NO, N1, N2); 

oder häufiger im TYPE-Teil, z.B. 

TYPE NAME = (NO, N1, N2); 

VAR N: NAME; 

wobei die Namen in runde Klammern gesetzt 
werden, Beispiel: 


PROGRAM DEMOS; 
TYPE 

ZAHL = (NULL, EINS, ZWEI}; 

VAR 

Z: ZAHL; 
BEGIN 
WRITELN (ORD (EINS)); ER 
WRITELN (ORD (SUCC (EINS))); 2} 
WRITELN (ORD (PRED (EINS))); {0} 
Z := NULL; WRITELN (ORD (Z)) {0} 
END, 


) 
) 
) 


Als skalare Typen gelten neben den Namens- 
typen auch die Ganzzahlen, Einzelzeichen und 
Wahrheitswerte, nicht jedoch die Dezimalzah- 
len, da bei letzteren wegen möglicher Run- 
dungsfehler Vorgänger (PRED) und Nachfolger 
(SUCC) nicht immer eindeutig angegeben wer- 
den können, denn in einem Bereich, z.B. 0.5 
.. . 1.5, gibt es theoretisch unendlich viele Real- 
Zahlen. 


Exkurs: Datentypnutzen 

Persönlich halte ich die Aufzählung für einen 
weitgehend nutzlosen Datentyp. Wenn man 
zb 

TYPE STERN = (SONNE, MOND); 

definiert, so wird von der Tatsache abgelenkt, 
daß der Name SONNE gar nicht die Sonne, 
sondern einen computerinternen Wert (hier O) 
bezeichnet. Bei infantiler Betrachiungsweise 
könnte man auf den Gedanken kommen, daß 
nach 

WRITELN (SONNE); 

auf dem Monitor die Sonne aufgeht, was natür- 
lich nicht der Fall ist. Wenn man auf den skala- 
ren Namenstyp nur mit PRED, SUCC und ORD 


zugreifen kann, ist der praktische Wert mehr als 
gering. Ein Datentyp ist erst dann von Nutzen, 
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wenn für ihn spezielle Befehle implementiert 
wurden. Mit 

TYPE NATZAHL = 0..255; 

hat man noch keine Integer-Arithmetik für natür- 
liche Zahlen im Bereich O bis 255 geschaffen. 
sowohl der Aufzählungstyp als auch der folgen- 
de Bereichstyp dienen damit mehr pädagogi- 
schen als programmierpraktischen Zwecken. 


1.2.3. Bereich (Anfang..Ende) 


Der Bereichs- oder Ausschnittstyp ist ein Teil- 
bereich aus einem Datentyp (Integer, Char, Auf- 
zählung, nicht aber Real), für den dann diesel- 
ben Befehle wie für den gesamten Datentyp 
gelten. Anfangs- und Endwert des Teilbereichs 
werden durch zwei Punkte (,„..“) begrenzt. Die 
Definition erfolgt implizit im VAR-Teil oder expli- 
zit im TYPE-Teil, z.B.: 


VAR 
INDEX: -30..+30; 
VERSAL: ’A’..Z’; 


Ein Bereich darf nicht im CONST-Teil definiert 
werden, 

Der Bereichstyp spielt besonders bei der Indi- 
zierung (Indextyp, s.u.) eine Rolle. Man beach- 
te, daß etwa der Typ 

IXPEBYIE> 0,255 

VAR B: BYTE; 

in Kyan-Pascal nur der Optik dient, denn die 
Variable B belegt nach wie vor intern 2 Bytes 
und wird damit wie eine gewöhnliche Integer- 
Zahl behandelt. Auch kann man beispielsweise 
bei 

READLN (B); 

eine größere Zahl als 255 eingeben, ohne daß 
eine Fehlermeldung erfolgt. Dies gilt auch für 
Turbo- und UCSD-Pascal. Lediglich die Über- 
schreitung des Index-Bereichs eines Arrays 
wird in Kyan-Pascal mit einem Runtime-Error 
quittiert. 


1.2.4. Menge (Set) 


Kyan-Pascal verfügt über einen Mengentyp mit 
maximal 256 Elementen (intern 32 Bytes = 256 
Bits). Die Definition einer Menge erfolgt meist 
im TYPE-Teil mit dem Typ-Bezeichner SET OF. 
Beispiel: 

TYPE 

MENGET = SET OF 1..10; 

MENGE2 = SET OF INTEGER; 

MENGES = SET OF (SONNE, MOND); 

VAR 

M1: MENGE1; M2: MENGE2; M3: MENGES; 
Die Elemente einer Menge können Ganzzahlen, 
Einzelzeichen, Wahrheitswerte oder Aufzäh- 
lungsnamen sein (nicht gemischt und kein Ele- 
ment doppelt!). Bei SET OF INTEGER gelten 
nur die ersten 256 Ganzzahlen (0..255). 

Bei der Wertzuweisung mit „:=" im eigentli- 
chen Programm müssen die Elemente, deren 
Reihenfolge im Gegensatz zum Aufzählungstyp 
beliebig ist, in eckige Klammern gesetzt wer- 
den, z.B. 


MIF=[7,83: 2]; 
M2 := [100, 200]; 
M3 := [SONNE]; 


Eine Integer- oder Char-Menge kann im TYPE- 
oder VAR-Teil nicht durch Aufzählung der Ele- 
mente oder Bereiche definiert werden, weil nur 
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im Programm selbst eckige Klammern erlaubt 
sind: 

VAR M: 1, 10, 100; {falsch} 

M := [1, 10, 100]; {richtig} 

VAR M: 1..10, 20..30; {falsch} 

M := [1..10, 20..30]; {richtig} 

Die Eingabe/Ausgabe über READLN/WRITELN 
ist nicht vorgesehen. Von den zahlreichen Men- 
genbefehlen, auf deren Darstellung wir hier aus 
Platzgründen verzichten müssen, ist nur der 
Befehl IN, der sich zur Menü-Auswahl eignet, 
für die Programmierpraxis von Bedeutung. Hier 
wird im Gegensatz zum Bereichstyp genau ge- 
prüft, ob der Wert der Variablen in der Menge 
enthalten ist. Beispiel: 


PROGRAM DEMOT; 


TYPE 
SETl = SET OF 14:5: {5} 

SET2 = SET OF INTECER; {nur 0..255} 
SET3 = SET OF 'A'wı'z'!: {26} 

SET4 = SET OF CHAR: {0..255} 

VAR 


Ml: SETL; M2: SET2; M3: SETZ; M4: SETA; 
BEGIN 

M2 := [1, 10, 100-,200]; 

IF 199 IN M2 THEN WRITELN ('ja'); 

MA := [TA ZI, 'at,.'z']: 

IF NOT ('#' IN M4) THEN WRITELN ('nein') 
END, 


1.3. Komplexe Typen 


Datensatz = Record-Typ 

IrPER = RECORB.END 

Feld = Array-Typ 

TYPE A = ARRAY ... OF ... 

Zeichenkette = String-Typ 

TYPE S = ARRAY [1..255] OF CHAR 

Datei = File-Typ 

IYPBEE = ELEOE 

(Zeichenketten und Dateien werden in geson- 
derten Abschnitten behandelt.) 


1.3.1. Datensatz (Record) 


Ein Datensatz in der Adreßverwaltung umfaßt 
die Elemente oder Komponenten Name, Stra- 
Be, Wohnort usw. In Pascal können verschiede- 
ne Datentypen, und zwar sowohl einfache Ty- 
pen (z.B. Ganzzahl, Dezimalzahl) als auch kom- 
plexe Typen (z.B. String) als einzelne Elemente 
zu einem Datensatz (= Record = Verbund) 
zusammengefaßt werden, Man kann sogar noch 
weitergehen und Records konstruieren, die 
selbst aus Records bestehen, 

Die Definition eines Records erfolgt im TYPE- 
oder im VAR-Teil mit Hilfe des Typ-Bezeichners 
RECORD, z.B.: 

VAR REC: RECORD... END; 


Beispiel: 
PROGRAM DEMOBS; 
TYPpk 
REC = RECORD 
I: INTEGER; 
R: REAL {kein ';' vor END!} 
END; 
VAR 
Rl, R2: REG; 
BEGIN 
Rl,I := 123: 
Rl.R := 123.456; 


WRITELN (Rl.I:5); 
WRITELN (R1.R:10:3); 
R2 := RI: 

WRITELN (R2.1:5); 
WRITELN (R2.R:10:3) 
END. 
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Auf den selbstgewählten Recordtypnamen, hier 
„REC", folgt im TYPE-Teil ein „=" (oder im 
VAR-Teil ein „:") und dann der Typ-Bezeichner 
RECORD. Danach werden die Elemente des 
Records so definiert, wie Sie es bereits von den 
einfachen Variablen her kennen. Jedes Element 
erhält dabei einen Elementnamen (oder Kom- 
ponentennamen). Nach dem letzten Element 
wird die Record-Definition mit „END;” abge- 
schlossen, vor dem in Kyan-Pascal kein Semi- 
kolon stehen darf. 

Auf ein einzelnes Element eines Records grei- 
fen Sie im Programm zu, indem Sie den Kop- 
peinamen 

Recordname.Elemeniname 

bilden, z.B. R1.l, R1.R usw. Zwischen Record- 
name und Elementname steht ein Punkt. Für ein 
mit einem Koppelnamen bezeichnetes Element 
gelten dann alle Befehle des Datentyps dieses 
Elements, z.B. 

WRITELN (SIN (R1.R)); 

READLN (Ri.R); usw. 

Darüber hinaus können Sie einen Recordi ins- 
gesamt einem anderen Record2 mit 

R2:=Ri1; 

zuweisen, falls beide Records die gleiche Struk- 
tur haben, 

Der Vergleich zweier Records mit 

IFRI =R2THEN... 

ist in Kyan-Pascal nicht zulässig. Dies gilt auch 
für Turbo-, nicht aber für UCSD-Pascal. 

Man beachte, daß im Falle mehrerer Records 
die Recordnamen verschieden sein müssen, 
die Elementinamen jedoch gleich sein dürfen. 
Beispiel: 

VAR 

A: RECORD A, B: INTEGER END; 

B: RECORD A, B: INTEGER END; 

Die möglichen Koppelnamen sind nämlich hier 
alle verschieden: A.A, A.B, B.A, B.B. 

Die einzelnen Elemente eines Records befin- 
den sich im Speicher von unten nach oben in 
der Reihenfolge der Definition der Elemente. 
Beispiel: 


VAR R = RECORD 


Il: INTEGER; 
I2: INTEGER; 
I3: INTEGER 
END; 

R.I3 = 2 Bytes oben 

R.I2 = 2 Bytes 

R.Il = 2 Bytes unten 


(Hinweis: Die WITH-Anweisung und der varian- 
te Record mit GASE-OF wurden aus Platzgrün- 
den ausgespart.) 


1.3.2. Feld (Array) 


Etymologischer Hinweis: „Array“ bedeutete ur- 
sprünglich militärische Schlachtordnung, dann 
mathematische Reihe, dann Spalte oder Zeile in 
einer Zahlentabelle. Die germanische Herkunft 
des englischen „Array“ = Phalanx ist dubios. 
„Array“ ist jedenfalls nicht mit „arrangieren“ 
verwandt. Das deutsche „Feld“ ist eine Be- 
helfsübersetzung. In der Statistik würde man 
den Array als Tabelle und die Elemente eines 
Arrays als Fächer bezeichnen. 


Während ein Record in der Regel aus einer 


Anzahl verschiedener Elemente besteht, enthält 
ein Array eine Vielzahl gleicher Elemente. Wäh- 
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rend die Elemente eines Records durch Kop- 
pelnamen angesprochen werden, wird auf die 
Elemente eines Feldes indiziert zugegriffen. Ein 
Array wird im TYPE- oder VAR-Teil mit ARRAY 
„. OF ... definiert. Zwischen „ARRAY“ und 
„OF” steht der Bereichstyp (Indextyp) in ecki- 
gen Klammern [Anfang..Ende], und auf „OF“ 
folgt der Element-Typ. Beispiele: 

VAR 

I: ARRAY [1..100] OF INTEGER; 

R: ARRAY [0..1000] OF REAL; 

C: ARRAY [1..255] OF CHAR; 

Im eigentlichen Programm kann dann auf die 
einzelnen Elemente eines Arrays so zugegriffen 
werden (Beispiele): 


II1} := 32767; 
R[500] := 123.456; 
C[100] := ’A’; 


Der Index darf im Programm auch durch eine 
Variable ausgedrückt werden, z.B.: 
J := 100; WRITELN (R[J]); 


Zum besseren Verständnis des Feld-Begriffs 
betrachten wir die Speicherbelegung des Mini- 
Arrays 

A: ARRAY [0..2] OF INTEGER; 


Al2], 2 Bytes, 2 x 2 = 4 = $8004 oben 
AIl]l, 2 Bytes, 1* 2 = 2 = $8002 
A[lO], 2 Bytes, 0 «x 2 = 0 = $8000 unten 


Das Element mit dem kleinsten Index, nämlich 
AIO], befindet sich unten an der sog. Basis des 
Arrays. Durch Addition von Basisadresse (hier 
fiktiv $8000) und Produkt aus Index mal Byte- 
Anzahl pro Element können wir auf die Spei- 
cherstelle des gewünschten Elements des Ar- 
rays zugreifen. Diese Berechnung nimmt uns 
natürlich der Pascal-Compiler ab. 

Am einfachsten liegen die Dinge für den Compi- 
ler, wenn der Index-Bereich eines Arrays mit O0 
beginnt, weil dann intern keine Umrechnung 
erforderlich ist. Pascal erlaubt jedoch auch an- 
dere Index-Bereiche. Im Falle einer Tagestem- 
peratur-Statistik (Streuung -30 bis +40 Grad) 
würden wir z.B. den Array 

VAR T: [-30..+40] OF INTEGER; 

wählen. Dann wäre jedoch bei jedem T-Array- 
Zugriff intern eine Umrechnung erforderlich, die 
in Kyan-Pascal immerhin über 10 Bytes an zu- 
sätziicnhem Objektcode erforderlich machen 
würde. Der Index-Bereich 0..N ist also spei- 
chereffizienter. 


Arrays sind bei fast allen Datentypen möglich: 
ARRAY OF INTEGER, 

ARRAY OF REAL, 

ARRAY OF BOOLEAN, 

ARRAY OF CHAR, 

ARRAY OF RECORD usw. 

Der oben demonstrierte Integer-Array ist ein 
sog. eindimensionaler Array, den man gele- 
gentlich auch als Vektor bezeichnet. Es lassen 
sich jedoch auch mehrdimensionale Arrays de- 
finieren. Bei zweidimensionalen Arrays, die 
auch Matrizen heißen, muß man sich die Ele- 
mente in Spalten und Zeilen angeordnet vor- 
stellen, Beispiel: 


PROGRAM DEMOS; 

CONST 

9, 

A=9; 
TıPE 

MAT = ARRAY [0..5, 0..2] OF INTEGER; 


VAR 
Ml, M2: MAT; 
I, J: INTEGER; 
BEGIN 
FÜR I >= 0 T0 5 .D9 
FOR J :=0 T0 2 DO 
Mill, >= Te: 
M2 := Ml; 
FOR I :=0 TO 5 DO 
BEGIN 
FOR J :=0 T0 2 DO 
WBETELIM2[T.J]283: 
WRITELN 
END 
END, 


Wie Sie dem Programm entnehmen können, 
läßt sich ein Arrayt einem anderen Array2 ins- 
gesamt zuweisen, wenn beide Arrays die glei- 
che Struktur aufweisen. Der Gesamtvergleich 
zweier Arrays (IF Mi = M2 THEN .. .) ist in 
(Kyan-)Pascal nicht möglich. 


Wegen der grundsätzlichen Bedeutung des AR- 
RAY OF RECORD für die Dateiverwaltung brin- 
gen wir noch ein stark vereinfachtes Demo für 
eine Mitgliederverwaltung. Mit dem Ausdruck 
M[1].ZUNAME 

wird die Komponente ZUNAME des ersten Ele- 
ments des Record-Arrays angesprochen. Der 
Koppelname-Punkt steht zwischen „M[1]* und 
„ZUNAME". Der Ausdruck 

M.ZUNAME]1] 

wäre hier falsch, denn [1] würde sich dann auf 
ZUNAME und nicht auf M beziehen. 


FROGRAM MITGLIEDER ; 
CONST 

N = 3; 
TYPE 

MITGLIED = RECORD 


ZUNAME: ARRAY [1..20] OF CHAR; 
EINTRITT: INTEGER; 
BEITRAG: REAL 
END; 

VAR 
M: ARRAY [1..N] OF MITGLIED; 
I: INTEGER; 

BEGIN 

FOR I :=1 TON DO 

BEGIN 
WRITELN {'Nummer ', I); 
WRITE ('Zuname: ')}; 
READLN (M[I].ZUNAME); 
WRITE MEinbritt se 
READLN ({M[I].EINTRITT); 
WRITE ('Beitrag: '): 
READLN (MII].BEITRAG) 

END; 

WRITELN; 

FOR I := 1 TON DO 

BEGIN 
WRITE ([M[I].ZUNAME: 20); 
WRITE (M[I].EINTRITT:10)}; 
WRITELN {M[I].BEITRAG:12:2) 
END 

END. 


Wenn Sie mit Arrays arbeiten, müssen Sie sich 
Gedanken über die Speicherkapazität machen. 
in Kyan-Pascal stehen Ihnen 36K (= 36.864 
Bytes; $2000-$AFFF) für Programm und Daten 
zur Verfügung. So belegt beispielsweise der 
Array 

VAR R: ARRAY [1..2000] OF REAL; 

2000 & 8 = 16.000 Bytes, 

und der Array 

VAR |: ARRAY [1..10000] OF INTEGER; 

10000 & 2 = 20.000 Bytes. 


Hinweis: Auf der Peeker-Sammeldisk sind DE- 
MO1 bis DEMO9 sowie MITGLIEDER als Pro- 


zeduren zu einem Programm namens 
DATENDEMOS zusammengefaßt. 
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INTUS-Lern- und 
Anwenderprogramme 


für Apple II - Computer 


e Rechtschreibtrainer für Deutsch und Englisch 
e Business-English und Alltags-Englisch 
e Maschinenschreiben wie der Blitz 


e Basic-Lernprogramm, sehr umfangreich 
e Kinderschule, Lernen für Vorschulkinder 


e AppleGraph, Erstellen von Kreis- und 
Balken-Graphiken 


e Rechenmodelle für AppleWorks-Rechenblatt 
e NEU: MailWorks für AppleWorks-Serienbriefe, 


für alle Drucker geeignet. 
e PriBu-Privatbuchhaltung gibt den Überblick 


e DMP-Charger zur Gestaltung eigener Zeichen- 
sätze auf dem Maitrix-Drucker. 


e und über 200 weitere Programme. Katalog gratis 


e Demo-Disketten mit 5-9 
Teilprogrammen 


e 6000 Frei-Programme (fast) gratis 
Programm-Liste (Vorkasse) 


vAN 
Intus SOFTWARE 


Kaiserstr. 21, 7890 Waldshut, 
Tel. 07751-7920 


DM 10,- 


DM 10,- 





Ausgabe una 
Eingabe mit 


TYPETERM® 


im Slot Ihres 


ı APPLE IV/lle 


Das bedeutet: Computer- 
textverarbeitung von der 
Schreibmaschinentastatur! 
Steckerfertig ohne Umbau. 


TYPETERM- DM 479, - 
Interface 

für alle BROTHER-Typenrad- 
schreibmaschinen ab CE-51 


Paketpreis: DM 1663,— 


Schreibmaschine 
CE-61 mit TYPETERM 


Ausgabe mit 


| TYPETERM® 
JUNIOR 


im Slot Ihres 


APPLE Il/lle 


Paketpreis DM 899,— 
Schreibmaschine AX-10 mit 
Interface TYPETERM JUNIOR, 
steckfertig. 


CE-68 mit TYPETERM ........... DM 2143,- 

CE-70 mit TYPETERM ............. DM 2758,- 

EM-80 mit TYPETERM ......... DM 1887,- 

TYPETERM-Kit für CE-50 ......... DM 468,— | gwaumAT Als ERSTER HAND 
Cable Kit A 
(erforderlich ab EM-80) u... DM 103,- 


TYPETERM JUNIOR mit AX-10 — unser 
besonders günstiges Gespann, ebenfalls 
steckfertig. Mit TYPETERM JUNIOR kann 
die AX-10 mehr, Sie wird zum vollwertigen 
Typenraddrucker für Ihren Apple: 

| @3 verschiedene Schriftstärken 
@ Automatisches Unterstreichen 
® 2 Zeichensätze z.B. deutsch u. ASCII 
@ 2 Zeichenabstände 
@ 2k ROM auf der Karte für Ausgabe unter 

DOS, PRODOS, CP/M u. PASCAL. 


TYPETERM JUNIOR - ein Produkt von 


Interlom Kock & Mreches GmbH 


004 Isernhagen 4 
electronic Telefon 05139-87393 


TYPETERM - ein starkes Interface für 
starke Maschinen! Alle Cursor- und Ctl- 
Befehle. dk ROM auf der Karte für DOS, 
PRODOS, CP/M, PASCAL. 2 Zeichensätze 
verfügbar z. B. deutsch u. ASCIl. Alle 
Features: Hoch-/Tiefstellen, autom, Unter- 
streichen, var. Zeichen und Zeilenabst., 
autom, Papierzuführung usw. Ausführl, 
Handbuch vorab: 10,- DM auf Konto 
14770-306 PGiroA Han (Anrechnung). 


TYPETERM - ein Produkt von 


a 

Kock & Mreches GmbH 
 ——  —  — ———  Postf., 3004 Isernhagen 4 
elestraniG Telefon 05139-87393 
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| Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 





ZUSATZ-KARTEN: 


V-24-Schnittstelle ............199- Z-80-Karte ...22222aa22220.. 98,- 
BO-Zeichen-Karte m.Softswitch % - x ehe = 
JoyStickDeluxe .....2....-- 59,- Accelerator 3,6 MHz ......... 950,- 
68000 Intemex ......:---.».- 1600, - PALKarte „22:22:22 10,- 
RGBKarte ....--..-eemr er: 239,- IEEEABB .....u.uuuu un. = 
Koppler dataphon m. FTZ ..... 325,- ZBOB Karte mit Software ...... 99,- 
Canfronics-Karte von Epson für Graphik. ..... 210,- für Text... .145,- 
Centronics-Schnittstelle für 2 Drucker gleichzeitig. ER R . 129,- 


Super-Eprommer 


belegt keinen Siot, incl, Software für 2716-27128 


Floppy-Controller 





FDC 4 für alle Laufwerke ....... 169,- Bausatz wiellnks „222424404. . 159,- 
Leerplatine wie oben ingl. Prom u, ENORM: een neacrren 98,- 
“ | ' 
Erphi-Controller .................... 298,- 
Disketten i0..s%i...............0000000000... 05. 29,- 


Disketten DA gg .051.36,- 
Preh Commander Keyboards 


pez. mit Gehäuse, An- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 

Gtrl-Godes und Hechenfunktionen .--.+-u-u--- essen nun 339,- 
Preh Commander Keyboard, frei programmierbar 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen .. ....+++++»»» nur ee 
Gleiche Tastatur wie oben 

für Applelle vucucuneus; 











TEAC 3%’ Laufwerk FD 35 08... 


Speicherkapazität 1 MB, (formatiert 640 N jetzt fürnur -. 


- = 
a ü 





TEACFDS5SAV I x40 Track .... 395,- TEACFD55BV2x40 Track .... 460;- | 
TEACFDSSEV1x80 Track „... 445,- TEAC FDS5 FV2x 80 Track u... 398,- 
Apple”-kompatibles Laufwerk incl. Gehäuse + Kabel 2222222222200... 599,- 


320 KB Laufwerk für Ile ........... ..... Y48,- 
640 KB Laufwerk für Ilc................ 1088,- 


PanasonicDrucker: 1090 .......... nur B849,- 


| 1091 ae nur IO95, oz 1092 ET nur 1295, N 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formatiert: 2 x 
640 kByte. Anschlußfertig mit PROM-residenter 
Patchsoltware für CP/M 2,2, Apple DOS 3,3, Di- 
versiDOS 2-G, 4-G (DD MOVER), Apple Pascal 


1.1, Pascal 1.2, Pro-DOS 1.0. 
Th 11d zum Preis von E S ei 1498,- 





Low Powar Version .2u2u.aconanence. 1598,- — _ 
10 MB Winchester — 
el enter ne  ZIEO,- 





Sonderangebot 


Chinon Laufwerk ..... 339, 


Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 


Händlerpreisliste bitte schriftlich anfordem! 


UEDING electronics 


DFÜ 02373/66877 
LER FAYEIZEIET, 


Holtewiese 2 
JEIN Menden 1 
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2. Unterprogramme 


Normalerweise werden die Befehle in Pascal 
von oben nach unten, d.h. in der Reihenfolge 
des Quelltextes, abgearbeitet. Dies gilt nicht für 
1. Verzweigungen und Schleifen (IF-THEN- 
ELSE, CASE-OF-END, FOR-TO-DO, WHILE- 
DO, REPEAT-UNTIL), 

2. Sprünge (LABEL, GOTO) und 

3. Unterprogramme (PROCGEDURE, 
FUNCTION). 


2.1. LABEL und GOTO 


GOTO-Sprünge sind in Pascal aus pädagogi- 
schen Gründen bewußt erschwert worden. Zu- 
nächst müssen die Labels (= Marken, Sprung- 
adressen als Nummern) im LÄBEL-Teil definiert 
werden. Danach kann innerhalb eines sog. 
Blocks (Hauptprogramm, Prozedur oder Funk- 
tion) zu einem Befehl gesprungen werden, der 
mit einer Nummer und „:“ markiert worden ist. 
Beispiel: 


PROGRAM GOTODEMO; 


LABEL 
ee ee 
CONST 
N = 1000; 
VAR 
I: INTEGER; 
BEGIN 
I :=-0; 
Ve WRITE 1,0 rt], 
IF I= N THEN GOTO 4 ELSE GOTO 3; 
2 WRITE (2,5, I ©=1°+ 1; 
IF I= N THEN GOTO 4 ELSE GOTO 1]; 
2. WREIrE LS ee), 


IF I = N THEN GOTO 4 ELSE GOTO 2; 
4: WRITELN ('4.'); WRITELN ('Ende') 
END, 


Nach der Ausgabe von „1“ erfolgt ein Sprung 
zur Marke 3, von dort nach Ausgabe von „3 
ein Sprung zur Marke 2, von dort nach Ausgabe 
von „2“ ein Sprung zur Marke 1 usw. Das 
Programm endet, wenn I = N ist. Mit GOTOs 
ließen sich theoretisch auch Unterprogramme 
konstruieren, doch gibt es dafür in Pascal die 
Prozeduren und Funktionen. 


2.2. Prozeduren 


In den meisten BASIC-Dialekten werden Uhnter- 
programme mit GOSUB n aufgerufen und mit 
RETURN verlassen. In Pascal haben Unterpro- 
gramme einen benutzerdefinierten Namen (z.B. 
SUB), und der Aufruf eines Unterprogramms 
erfolgt im Hauptprogramm im einfachsten Fall 
durch Angabe des Namens, z.B. 

SUB; 

Prozeduren sind Unterprogramme, die mit dem 
reservierten Wort PROCEDURE eingeleitet 
werden, z.B. 

PROCEDURE SUB; 

Eine Prozedur ist im übrigen wie das Hauptpro- 
gramm selbst aufgebaut und kann die Teile 
LABEL, CONST, TYPE und VAR aufweisen. Die 
eigentliche Prozedur beginnt mit „BEGIN" und 
endet mit „END;“, wohingegen das Hauptpro- 
gramm mit „END.“ endet. Die weiteren Feinhei- 
ten wollen wir Schritt für Schritt anhand des 
Programms SUBDEMOS untersuchen. 
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SUBDEMOS 

PROGRAM SUBDEMOS; {Kopf} 

VAR {von} 
G: INTEGER; {Level 0} 
F: INTEGER; 


I — 
PRÖCEDURE LOCAL; 
VAR 
I: INTEGER; 
BEGIN 
FOR I := 1 10 10 DO WRITE (=!) 
WRITELN 
END; 


PROCEDURE GLÖBAL; 


BEGIN 

G :=G + 10; {G geaendert} 
WRITELN (G) 
END; 


PROCEDURE WERTPAR (L: INTEGER); 


BEGIN 
L :=L + 10; {G unveraendert} 
WRITELN (L) 
END; 
| PROCEDURE VARPAR (VAR L: INTEGER); 
BEGIN 
L := L + 10; {G geaendert} 
WRITELN (L} 
END; 
(m 3 
FUNCTION FOHNE: INTEGER; 
BEGIN 
FOHNE := 2; 
WRITELN (2) {Nicht mit FOHNE!} 
END; 


FUNCTION FMIT ({L: INTEGER):INTEGER; 
BEGIN 

FMIT :=Lx*L; 

WRITELN (L & L} {Nicht mit FMIT!} 
END; 


m —  — — — — —  ] 
PROCEDURE LEVEL1l; {Kopf} 
VAR {von} 
L1: INTEGER; {Level ]1} 


2.2.1. Lokale Variablen 


Die Prozedur LOCAL hat keine Parameterliste 
(s.u.) und verwendet keine der nach dem Kopf 
des Hauptprogramms SUBDEMOS definierten 
Variablen G und F. Wir sprechen deshalb von 
einer sog. geschlossenen Prozedur, weil sie 
weder Werte des Hauptprogramms übernimmt 
noch Werte an das Hauptprogramms übergibt. 
Trotzdem wird in der Prozedur LOCAL eine 
Variable namens | definiert und benutzt. Alle im 
CONST-, TYPE- und VAR-Teil einer Prozedur 
definierten Variablen sind jedoch sog. lokale 
Variablen, die nur innerhalb der Prozedur und 
damit nicht außerhalb im Hauptprogramm be- 
karint sind. Der Name einer Variablen ist dabei 
irrelevant, vorausgesetzt die Variable wird im 
VAR-Teil definiert. Wenn wir in der Prozedur 
LOCAL den Namen | durch den Namen G er- 
setzen, so führt dies nicht zu einer Fehlermel- 
dung während des Compilierens, obwohl der 
Name G bereits im Hauptprogramm vorkommt. 
Grund: Die Variable G des Hauptprogramms hat 
mit der Variablen G der Prozedur nur den äuße- 
ren Namen gemein; in Wirklichkeit sind es zwei 
verschiedene Variablen. 


[||| [ZZ — 
PROCEDURE LEVEL2; {Kopf} 
VAR {von} 

L2: INTEGER; {Level 2} 


BEGIN 
LOCAL; 
WRITELN ('Level ', G); 
WRITELN ("Level ', Ll}; 
Le = 2: 

WRITELN {'Level ', L2) 

END; 

m 4) 
BEGIN 
LOCAL; 
WRITELN ({'Level ', G}; 
Re: 2] 

WRITELN ("Level ', 
LEVEL2 


{Main von Level 2) 


{Main von Level 1} 


L1); 


{Main von Level 0} 


LOCAL; 
G := 1; GLOBAL; 


=]; 2 
WRITELN (GC): 


{11} 


LORAL: 

G := 1; WERTPAR (G); 
WRITELN (G}; 

G == 1: WERTPAR (2): 
WRITELN (G); 


LOCAL; 
G := 3; VARPAR (G); 
WRITELN (G}; 


LOCAL; 
F := FOHNE; 
WRITELN (F}); 


LOCAL, G := 0; 

WRITELN {'Level ', G); 
LEVEL]; 

END. 





Allgemein formuliert: Wenn im VAR-Teil eines 
Unterprogramms eine Variable definiert wird, so 
ist sie dem übergeordneten Hauptprogramm 
nicht bekannt. Haben zufällig die Variable X des 
Hauptprogramms und die Variable X des Unter- 
programms dieselbe äußere Form, dann gilt in- 
nerhalb des Unterprogramms nur die im VÄR- 
Teil definierte Variable X, und das Uhnterpro- 
gramm weiß nichts vom Wert der im Hauptpro- 
gramm definierten Variablen X. Diesen Sach- 
verhalt bezeichnen wir als Namenspriorität, die 
auf Prozeduren und Funktionen (s.u.) gleicher- 
maßen zutrifft. 


2.2.2. Globale Variablen 


Betrachten wir nunmehr die Prozedur GLOBAL. 
Hier fehlt der VAR-Teil, und folglich muß die in 
GLOBAL benutzte Variable G eine sog. globale 
Variable sein, die bereits im übergeordneten 
Hauptprogramm definiert worden ist. Wenn eine 
globale Variable nicht zufällig wegen Namens- 
gleichheit im Prozedur-VAR-Teil außer Kraft ge- 
setzt wurde, so ist sie der Prozedur bekannt. 
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Merksatz: 

global definiert = lokal bekannt. 

lokal definiert = global unbekannt. 

Inder Prozedur GLOBAL wird die globale Varia- 
ble G nicht nur benutzt, sondern auch verän- 
dert. Dies bezeichnet man als Seiteneffekt, der 
in der Regel unerwünscht ist. Denn dadurch, 
daß im VAR-Teil einer Prozedur lokal definierte 
Variablen mit im Hauptprogramm global defi- 
nierten Variablen namensgleich sein können, 
besteht erst die Möglichkeit, daß mehrere Pro- 
grammierer unabhängig voneinander verschie- 
dene Prozeduren für dasselbe Hauptprogramm 
entwickeln. Wenn jedoch Seiteneffekte, d.h. die 
Veränderung von Hauptprogrammvariablen in 
Unterprogrammen, vermieden werden sollen, 
so muß es eine andere Möglichkeit der Parame- 
terübergabe geben, weil sonst nur geschlosse- 
ne Unterprogramme in der Art der obigen Pro- 
zedur LOCAL geschrieben könnten. 


2.2.3. Wertparameter 


Die Prozedur WERTPAR enthält im sog. Proze- 
durkopf in runden Klammern eine besondere 
Variable, die wir als Parameter oder im Falle 
mehrerer Variablen als Parameterliste bezeich- 
nen. Hier wird lediglich 1 Parameter mit Typzu- 
satz definiert. Ferner entnehmen wir dem 
Hauptprogramm, daß der Aufruf der Prozedur 
mit einem Parameter erfolgt, und zwar ebenfalls 
inrunden Klammern, aber ohne Typzusatz, weil 
der Typ bereits im Kopf des Hauptprogramms 
definiert wurde. Es liegt damit eine Typüberein- 
stimmung von Prozedurkopf-Parameter und 
Prozeduraufruf-Parameter vor: 

PROGEDURE WERTPAR (L:INTEGER); 
WERTPAR (G); 

Was passiert nun beim Aufruf der Prozedur? 
Der Wert der globalen Variablen G wird in die 
Speicherstelle des Prozedur-Parameters L ko- 
piert. Da G ursprünglich den Wert 1 hatte, hat 
nun auch der Parameter L den Wert 1. Wenn 
nun L innerhalb der Prozedur WERTPÄR geän- 
dert wird, so hat dies keinen Einfluß auf den 
Wert der globalen Variablen G. Wir bezeichnen 
deshalb den im Prozedurkopf definierten Para- 
meter L als sog. Wertparameter: Das Haupt- 
programm übergibt an die Prozedur einen Weri 
(= Parameter-Input), aber die Prozedur gibt kei- 
nen Wert an das Hauptprogramm zurück (= 
kein Parameter-Output). 

Auch für den Wertparameter L gilt wie für die 
Definition von Variablen im VAR-Teil von Proze- 
duren, daß der äußere Name irrelevant ist. Statt 
L hätten wir auch G wählen können: 
PROGEBURE WERTPÄR (G: INTEGER); 
WERTPAR (G); 

Dann wäre ebenfalls der Wert der globalen Va- 
riablen G in die Speicherstelle des Prozedur- 
Parameters G dupliziert worden, und die globale 
Variable G wäre nicht durch die Prozedur 
WERTPAR verändert worden. Wie der Ausdruck 
Wertparameter impliziert, kann der Wert auch 
als Konstante übergeben werden: 
PROCEDURE WERTPAR (G: INTEGER); 
WERTPAR (1); 

Hier wird der Wert 1 direkt in den Prozedur- 
Parameter G kopiert, so daß der Umweg über 
die globale Variable G entfällt. Wir halten fest: 
Bei einer Wertparameter-Prozedur ist der Para- 
meter bei der aufgerufenen Prozedur stets eine 
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Variable, während der Parameter beim Proze- 
duraufruf eine globale Variable oder auch eine 
Konstante bzw. ein Formelausdruck sein kann. 
(Prozedur-Parameter sind eine besondere Art 
von lokalen Variablen, die sich im Speicher di- 
rekt an diaim VAR-Teil der Prozedur definierten 
normalen lokalen Variablen anschließen.) 


2.2.4. Variablenparameter 


Nun mag es wünschenswert sein, daß einer 
Prozedur nicht nur Werte vom Hauptprogramm 
zugeführt werden (Parameter-Input), sondern 
daß auch Werte an das Hauptprogramm zurück- 
gegeben werden (Parameter-Output). Betrach- 
ten wir hierzu die Prozedur VARPAR mit dem 
Prozedurkopf 


PROCGEDURE VARPAR (VAR L: INTEGER); 
die im Hauptprogramm durch 
VARPAR (G); 


aufgerufen wird. Sie unterscheidet sich von der 
Prozedur WERTPAR lediglich dadurch, daß dem 
Prozedur-Parameter L das Wort „VAR“ voran- 
gestellt wurde, das hier eine besondere Bedeu- 
tung hat. VAR vor dem Parameter L besagt, daß 
sich der Wert der globalen Variablen G und der 
Wert des Variablenparameters L denselben 
Speicherplatz teilen. Während bei einem Wert- 
parameter der Wert der globalen Variablen in die 
Speicherstelle des Wertparameters kopiert oder 
dupliziert wird, wird bei einem Varlablenpara- 
meter intern nur ein Zeiger übergeben, der auf 
die Speicherstelle der globalen Variablen zeigt. 
Wenn nun der Variablenparameter innerhalb ei- 
ner Prozedur geändert wird, so wird damit 
gleichzeitig die globale Variable geändert, denn 
der Wert des Variablenparameters und der Wert 
der globalen Variablen sind physisch identisch. 
Obwohl damit praktisch nur eine einzige Varia- 
ble existiert, ist auch hier der äußere Name des 
Variablenparameters irrelevant, denn statt L 
mußten wir nicht G nehmen, um G zu ändern. 


Der Begriff Variablenparameter impliziert be- 
reits, daß der beim Prozeduraufruf genannte 
Parameter stets eine Variable sein muß, wäh- 
rend bei Wertparametern auch Konstanten zu- 
lässig sind. 


Es gibt damit im einzelnen folgende Prozedur- 
typen: 

1. Prozeduren ohne lokale Variablen, 

2. Prozeduren mit lokalen Variablen, die im 
VAR-Teil der Prozedur definiert werden, 

3. Prozeduren ohne Parameter, 

4. Prozeduren mit Wert- und/oder Variablenpa- 
rametern, die im Prozedurkopf definiert werden. 
Beispiele für Prozedurköpfe und Prozedurauf- 
rufe: 


PROCEDURE PI:; 
ale 

PROCEDURE P2 {I: 
P2 (10, Ar); 
PROCEDURE P3 (R: REAL; B: BOOLEAN); 

P3 IR], B}): 

PROCEDURE P4 (VAR I: INTEGER; R: REAL}; 
PA (I, 123.456); 
PROCEDURE P5 (VAR C1], 
E35 (CUL ICE2 7: 
PROCEDURE P6& (R: REAL; C: CHAR); 
P& (Rl * 3.1415, CHR(65)); 


INTEGER; C: CHAR); 


C2: CHAR; R:REAL): 


4 kyan 94 


2.3. Funktionen 


Wir haben bereits die meisten vordefinierten 
Funktionen kennengelernt, z.B. SIN, LN, CHR, 
ORD usw. Betrachten wir noch einmal folgende 


Beispiele: 
Y:=SIN (X); 
Y:= SIN (30); 


WRITELN (SIN 9); 

WRITELN (SIN (30)); 

Y ist der Funktlionswert (abhängige Variable, 
Ergebnis, Ausgabewert), der stets eine Variable 
sein muß, sofern nicht wie im Falle von 
WRITELN das Ergebnis direkt ausgegeben wird. 
X Ist das Argument (unabhängige Variable, Stel- 
le, Eingabewert), das sowohl eine Variable als 
auch eine Konstante sein kann. 

Die benutzerdefinierten Funktionen unterschei- 
den sich einerseits von den vordefinierten 
Funktionen und andererseits von den Proze- 
duren: 

1. Benutzerdefinierte Funktionen geben immer 
einen Funktionswert zurück. Dieser muß inner- 
halb der Funktionsroutine dem Funktionsnamen 
zugewiesen werden, der gewissermaßen als 
abhängige Variable fungiert: 

Sa 03, 

Bei vordefinierten Funktionen wird diese Tatsa- 
che verdeckt, denn im (Haupt)programm kann 
man nicht „SIN := 0.5" schreiben. 

2. Der Prozedurkopf beginnt mit PROCEDURE 
+ Prozedurname und der Funktionskopf mit 
FUNCTION + Funktionsname. 

3. Wie nach dem Prozedurnamen werden nach 
dem Funktionsnamen die Parameter in runde 
Klammern gesetzt. Wert- und Variablenparame- 
ter sind gleichermaßen zulässig. 

4. Im Gegensatz zur Prozedur muß der 
Datentyp des Funktionsnamens, der den Funk- 
tionswert aufnimmt, definiert werden. Dies ge- 
schieht durch den Zusatz von „:" + Datentyp 
nach der eingeklammerten Parameterliste (falls 
eine solche existiert). 


2.3.1. Funktionen ohne Argument 


Normalerweise hat jede Funktion ein Argument. 
Wie wir der Funktion FOHNE entnehmen kön- 
nen, sind jedoch auch Funktionen ohne Argu- 
ment denkbar. Die Funktion 

FUNCTION FOHNE: INTEGER; 

wird durch 

F:= FOHNE; 

im Hauptprogramm aufgerufen. Innerhalb der 
Funktion erfolgt mit 

FORNE-— 2: 

die Zuweisung von 2 an den Funktionsnamen, 
und dieser Wert 2 wird dann quasi nach dem 
„END; der Funktion in die Variable F kopiert. 
Funktionen ohne Argument sind normalerweise 
sinnlos. Man benötigt sie jedoch, um gewisse 
/O-Adressen (Drehregler, Tastatur und sonsti- 
ge Softswitches) abzuffagen. Die Eingabewerte 
kommen dann nicht vom Pascal-Hauptpro- 
gramm, sondern von den l/O-Adressen, und 
die Funktion selbst wird üblicherweise in As- 
sembler geschrieben. Ein Beispiel für eine sinn- 
volle Funktion „ohne“ Argument ist die RDKEY- 
Routine aus dem Grundkurs. 


2.3.2. Funktionen mit Argument 


Die Funktion FMIT ist ein Beispiel für eine Funk- 
tion mit einem Argument, hier L, das als Para- 
meter in 
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FUNCTION FMIT (L: INTEGER): INTEGER; 
enthalten ist. Der Funktionsaufruf mit 
F:=FMIT (G); 

könnte auch durch 

WRITELN (FMIT (G)); 

ersetzt werden. 

Es gibt auch Funktionen mit mehreren Argu- 
menten. Ferner können auch Variablenparame- 
ter definiert werden, die man jedoch aus Grün- 
den der Übersichtlichkeit meistens vermeidet. 
Beispiele für Funktionsköpfe und Funktionsauf- 
rufe: 


FUNCTION Fl {Il, 12: INTEGER; 
FI := Fl (10, 20); 

FUNCTION F2 {R: REAL; VAR R: REAL): REAL; 
FR := F2 (10.5, RR); 

FUNCTION F3 (I: INTEGER): BOOLEAN; 

FB := F3 (10 « IV): 

FUNCTION FA {R: REAL; C: CHAR): CHAR; 

FC := FA (RL, 61); 


INTEGER): 


Hinweis: Im Gegensatz zu Standard-, UCSD- 
und Turbo-Pascal sind in Kyan-Pascal auch 
String-Funktionen definierbar. Komplizierte Bei- 
spiele für Funktionen und Prozeduren können 
Sie dem Abschnitt über Strings entnehmen. 


2.4. Verschachtelung 


Bislang haben wir vereinfachend angenommen, 
daß Prozeduren und Funktionen nur vom 
Hauptprogramm aufgerufen werden können. In 
Wirklichkeit kann jedoch ein aufgerufenes Un- 
terprogramm selbst wieder andere Unterpro- 
gramme aufrufen: 

Level O0: Das Hauptprogramm hat den Level = 
den Grad = die Hierarchie = die Verschachte- 
lungstiefe O (= niedrigstes = unterstes Level). 
Level 1: Die Prozeduren und Funktionen, die 
vom Hauptprogramm aufgerufen werden, ha- 
ben den Level 1. 

Level 2: Die Prozeduren und Funktionen, die 
von den Prozeduren und Funktionen, die vom 
Hauptprogramm aufgerufen werden, aufgerufen 
werden, haben den Level 2. 

Das „Spielchen“ ließe sich weiter fortsetzen. 
Wenn wir die Prozeduren LEVELT und LEVEL2 
in dem Listing SUBDEMOS genauer ansehen, 
so können wir unseren Merksatz 

global definiert = lokal bekannt 

lokal definiert = global unbekannt 

dahingehend generalisieren, daß wir nunmehr 
„global“ im Sinne von relativ niedrigerem und 
„lokal“ im Sinne von relativ höherem Level 
interpretieren. Wenn es in einem konkreten 
Pascal-Programm drei Levels gibt, so sind dem 
mittleren Level die Variablen des untersten Le- 
vels bekannt und die Variablen des obersien 
Levels unbekannt. Der höchste Level kennt die 
meisten Variablen, der niedrigste Level die we- 
nigsten. Der höchste Level ist damit am meisten 
für Seiteneffekte anfällig. 


Forward: Wie die Variablen müssen in Pascal 
auch die Unterprogramme vor deren Benutzung 
bzw. Aufruf definiert werden. In gewissen Fällen 
rufen sich jedoch zwei Unterprogramme gegen- 
seitig auf. Da man aber nicht zwei Unterpro- 
gramme simultan definieren kann, behilft man 
sich mit dem FORWARD-Befehl, der zu einem 
späteren Zeitpunkt erläutert wird. 

Rekursion: Ein Unterprogramm kann nicht nur 
andere Unterprogramme, sondern auch sich 


AO 





Abb. 1 





Program M:; 
Var... 
Procedure A; 
Var... 
Begin...End: 
Procedure B; 
Var... 
Begin...End; 


Begin 
A; (1) 
B; (2) 
End. 


Geitrennte Aufrufe von Level-T- 


Prozeduren 





Abb. 2. 
Verketiete Aufrufe von 
Level-1-Prozeduren 


selbst aufrufen, was als Rekursion bezeichnet 
wird. Wenn man z.B. in SUBDEMOS innerhalb 
der FOHNE-Funktion die Prozedur WRITELN 
(FOHNE) verwenden würde, so entstünde eine 
Rekursion. 


Exkurs: Fehlerbehandlung 

Wer bislang in BASIC programmiert hat, wird als 
Pascal-Neuling schnell die leidvolle Erfahrung 
machen, daß die mächtigeren Pascal-Befehle 
mit einer geradezu vorsintflutlichen Speicher- 
verwaltung gekoppelt sind. Noch nie konnte ein 
Applesoft-Programmierer mit einem normalen 
BASIC-Befehl Programm und DOS zerstören. 
Pascal ist hier weniger narrensicher: Eine falsch 
gewählte Array-Dimensionierung (in UCSD- 
und Kyan-Pascal), eine irrtümlich programmier- 
te Endlos-Rekursion (in Turbo-Pascal) — und 
schon werden Programm, Daten und Betriebs- 
system sprichwörtlich ausgelöscht. Die obige 
FOHNE-Rekursion habe ich unter Turbo-Pascal 
3.0 mit der Premium Softcard getestet. Es zeig- 
te sich, daß hierdurch die gesamten 64K bis auf 
ein paar Bytes gnadenlos überschrieben wur- 
den. Deshalb hier ein mahnendes Wort an alle 
Pascal-Systemprogrammierer: Wer den Top- 
nicht vom Bottom-Pointer unterscheiden kann, 
sollte Fibonacci in Frieden ruhen lassen. 


Program M; 
Var... 
Procedure A; 
Var... 
Begin...End; 
Procedure B; 
Var... 
Begin... 

A; (2) 
„End; 
Begin 

B; (1) 

End. 


3. Strings 


In UCSD- und Turbo-Pascal gibt es den vordefi- 
nierten Typ-Bezeichner STRING sowie die Be- 
fehle LENGTH, CONCAT, POS, COPY, DELE- 
TE und INSERT, Hier ist somit „STRING" ein 
einfacher Datentyp. 

In Standard- und Kyan-Pascal muß man den 
string-Typ als ARRAY OF CHAR (= Zeichen- 
kette) definieren und entsprechende String-Be- 
fehle selbst implementieren. Hier ist somit 
„STRING“ ein komplexer Datentyp. 

Für Kyan-Pascal wird die Typ-Definition 

TYPE STRING = 

ARRAY [1..STRLEN] OF CHAR; 

empfohlen. Es sollte der Typname „STRING“ 
verwendet werden. Der Bereichsanfang sollte 1 
betragen, und die Integer-Konstante STRLEN 
(= String-Länge) sollte 255 nicht überschreiten. 
Die maximale String-Länge ist damit 255, und 
intern belegt ein String maximal 255 Bytes; ein 
spezielles Länge-Byte wie in Turbo- und 
UCSD-Pascal gibt es nicht. Anomale Bereichs- 
werte, z.B. 

[0..255] {0 statt 1} 

[1..1000] {1000 > 255} 

sind zulässig, doch gelten dann die folgenden 
Ausführungen nur noch mutatis mutandis. 


Peeker 3/86 


3.1. Vordefinierte Befehle 


1: Ein String kann als Konstante definiert wer- 
den, wobei die Längenangabe entfällt, z.B. 
CONST SK = 'Peeker'; 

Ein String-Wert (abc...) sollte nur eine Quell- 
textzeile einnehmen (knapp 80 Einzelzeichen). 


2: Strings können indirekt im TYPE-Teil oder 
direkt im VÄAR-Teil definiert werden, z.B. 
VAR S: ARRAY [1..80] OF CHAR; 


3: Ein String kann mit READLN eingegeben und 
mit WRITELN ausgegeben werden. Die maxi- 
male Länge des ein- oder auszugebenden 
Strings darf 255 nicht überschreiten. Pro- 
grammfragment: 

VAR S: ARRAY [1..255] OF CHAR; 

BEGIN 

READLN (S); 

WRITELN (S); 

Gibt man bei READLN z.B. „12345“ — gefolgt 
von Return - ein, so werden die restlichen 250 
Zeichen des Strings S mit Leertasten (Spaces) 
aufgefüllt. Bei WRITELN werden diese Leerta- 
sten mit ausgegeben. Dies läßt sich durch die 
LENGTH-Funktion vermeiden (s.u.). 


4: Die Zuweisung eines String-Wertes zu einer 
String-Variablen ist nur unter Beachtung der 
definierten String-Länge zulässig. Programm- 
fragment: 


S := '123456’; {zuviele Zeichen} 

S := 1234’; (zuwenige Zeichen} 

S:= '12300'; (Spaces erlaubt} 

9: Zwei Strings gleicher Länge können alphabe- 


tisch gemäß der ASCI|-Tabelle verglichen wer- 
den (<, =, >, <=, >=, <>), Programmfrag- 


ment: > 

IVMPE 

STRING = ARRAY [1..5] OF CHAR; 
VAR SI, S2; 

BEGIN 

51 := 'abcde’; 

Ss2.= abcdi‘: 


IFS1 <S2 THEN WRITELN ('stimmt’); 


6: Die Elemente = Einzelzeichen eines Strings 
(= Einzelzeichen-Arrays) sind von 1 bis 
STRLEN durchnumeriert. Man sagt auch, daß 
sich das 1. Zeichen eines Strings in Position 1 
(= Index 1), das 2. Zeichen in Position 2 (= 
Index 2) befindet usw.: 


'ABCDEFGHIJ'" S: ARRAY OF CHAR[1..10] 
1234567890 Positionen P 1-10 
P CHAR 'D'’ inP=4 von SS 


Damit ist es möglich, das pte Zeichen eines 
Strings durch ein Einzelzeichen zu ersetzen 
und umgekehrt. Programmfragment: 

VAR 

S: ARRAY [1..5] OF CHAR; 
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EI 

Sole 

WRITELN (S); (ABXDE’} 

G:=S[1]; 

WRITELN (C); {’A’} 

7: Wenn man den String als einfachen Datentyp 
ansieht (s.o.), dann ist der String-Array (ARRAY 
OF STRING) ein eindimensionales Feld. Wenn 
man umgekehrt den String als komplexen 
Datentyp betrachtet, dann ist der String-Array 
(ARRAY OF ARRAY OF CHAR) ein zweidimen- 
sionales Feld. Letzteres gilt für Kyan-Pascal. 
Programmfragment: 

VAR 

SA: ARRAY [1..10] OF 

ARRAY [1..5] OF CHAR; 

SB: ARRAY [1..10,1..5] OF CHAR; 


C: CHAR; 

BEGIN 

SA[3] := 'ABCDE’; 
SB[4] := '12345'; 
BR 


SAIS][1] := ©; SBI[4,5] := C; 

WRITELN (SA[3]); {XBCDE’} 

WRITELN (SB[4]); {1234X’} 

Wie ersichtlich, kann ein String-Array als AR- 
RAY [1..M] OF ARRAY [1..N] OF CHAR oder als 
ARRAY [1..M, 1..N] OF CHAR definiert werden. 
Die erste Dimension 1..M bedeutet die Anzahl 
der Strings, die zweite Dimension 1..N die An- 
zahl der Zeichen je String. Ein einzelnes Zei- 
chen eines Strings des String-Arrays S kann mit 
S[M,N] oder mit S[MII[N] selektiert werden. 


VAR S: ARRAY [1.5] OF CHAR; C: CHAR; 
BEGIN BEGIN 
Ss = 12345 Triehtig‘ S := 'ABCDE’; 

Disk #14 MATRIX 

VEKTOR 

(DOS 3,3; Heft 1 und 2/86) ARpERSOrT TE 

T.PROTODOS Be 

PROTODOS IRS2 


(1) Programm zur Konvertierung von Pro- 
DOS- in DOS-3,3-Dateien; (2) Heft 1/86, S. 
36; (3) II+, Ile oder Ilc; (4) DOS 3.3; (5) 
BRUN PROTODOS 


DESIGNER.TEXT 

(1) Entwurf und Änderung von Zeichensät- 
zen für die SYSTEM.CHARSET-Datei; (2) 
Heft 1/86, S. 43; (3) H+, Ile oder IlIc; (4) 
UCSD-Pascal 1.1 oder 1.2; (5) Ef(xecute) 
DESIGNER.TEXT nach dem Assemblieren 
(6) Datei mit GETDOS nach UCGSD-Pascal 
übertragen 


READPAS.PAS 

(1) Programm zur Konvertierung von 
UCSD- in Turbo-Pascal-Textfiles; (2) Heft 
1/86, S. 48; (3) II+ oder Ile; (4) GP/M mit 
Turbo-Pascal 2.0 oder 3.0; (5) nach dem 
Compilieren mit Option C von CP/M aus als 
COM-Datei starten; (6) Datei mit APDOS 
nach CP/M übertragen 


KOMPLEMENT.DEMO 

T.KOMPLEMENT 

KOMPLEMENT 

(1) Demo-Programm zur Komplement-Ad- 
dition; (2) Heft 2/86 S. 6; (3) II+, Ile oder 
IIc; (4) DOS 3.3 oder ProDOS; (6) RUN 
KOMPLEMENT.DEMO 


DOSMOVER.START 

T.DOSMOVER 

DOSMOVER 

(1) Verschieben von DOS 3.3 in die LC zur 
Erweiterung des verfügbaren Speicherplat- 
zes; (2) Heit 2/86, S. 17; (3) II+ mit LG, Ile 
oder Ilc; (4) DOS 3,3; (5) RUN DOSMO- 
VER,START 
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(1) Demo-Programme zur Matrizenrech- 
nung; (2) Heft 2/86, S, 29; (3) Il+, Ile oder 
Ilc; (4) DOS 3.3 mit Ampersoft und LRS- 
System; (5) s. Heft; (6) die Daten-Fites sind 
wegen ihres Umfangs nicht enthalten und 
müssen selbst erstellt werden 


INIT.SERIELL 

(1) Programm zur Initialisierung einer der 
seriellen Schnittstellen beim Ilc; (2) Heft 2/ 
86, 8,34; (3) Ile; (4) DOS 3,3 oder ProDOS; 
(5) RUN INIT,SERIELL; (6) PIN-Werte ggf. 
im Programm anpassen 


T.CHRGET.SPRUNG 

CHRGET.SPRUNG 

(1) Hilfsprogramm zur Applesoft-Befehlser- 
weiterung; (2) Heft 2/86, S, 38; (3) II+, lie 
oder Iic; (4) DOS 3,3; (5) BRUN 
CHRGET,.SPRUNG, dann SBELL zum Test 


SC.MOVER.DEMO 

T.SCREEN.MOVER 

SCREEN.MOVER 

(1) Programm zur Pufferung von bis zu 8 
Bitdschirmseiten in der LC; (2) Heft 2/86, S 
41; (3) II+ mit LC, Ile oder Ile; (4) DOS 3,3 
oder ProDOS; (5) RUN SC.MOVER.DEMO; 
(6) unter ProDOS die Pufferzahl durch 
POKE 782,2 begrenzen 


DARSTELLUNG.3D 

(1) Darstellung dreidimensionater Funktio- 
nen; (2) Heft 2/86, S.43; (3) II+ mit G/K, Ile 
oder Iic; (4) DOS 3,3 oder ProDOS; (5) 
RUN DARSTELLUNG.3D 


TIPS5.TEXT 

(1) Demo-Programme zur Assembler-Ein/ 
Ausgabe in UCSD-Pascal; (2) Heft 2/86, S. 
47, (3) Il+, Ile oder Ilc; (4) UCSD-Pascal 
1,1 oder 1.2; (5) s. Heft 


Peeker-Sammeldisk 
+14 und #15 


(Einzelpreis DM 28,-; Fortsetzungspreis DM 20,-) 


Disk #15 


(DOS 3,3; Heft 3/86) 
Achtung: Enthält sowohl DOS-3.3- als auch 
USCD-Pascal-Directory! 


REELL.1 

REELL.1A 

REELL.2 — REELL.10 

(1) Demos zur internen Darstellung von 
reellen Zahlen; (2) Heit 3/86, S. 12; (3) Il+, 
Ile oder IIc; (4) DOS 3.3 oder ProDOS; (5) 
RUN REELL.I usw. 


T.MAKESUB 

MAKESUB 

(1) Erstellung zusammenhängender Subdi- 
rectories unter ProDOS; (2) Heft 3/86, S. 
20; (4} II+ (mit LC), Ile oder Ilc; (4) 
ProDOS; 

MAKESUB muß zuerst mit DOSTOPRO auf 
Ihre ProDOÖS-Diskette kopiert werden; (5) 
BRUN MAKESUB, 


DATENDEMOS 

SUBDEMOS 

STRINGDEMOS 

FILEDEMOS 

(1) Demos zum Kyan-Aufbaukurs sowie 
String-Include-Datei, enthalten in STRING- 
DEMOS; (2) Heft 3/86, S. 32; (3) II+ {mit 
LO) Ile oder IIc; (4) ProDOS; Dateien müs- 
sen zunächst auf ProDOS-Diskette kopiert 
werden (z.B. mit DOSTOPRO); (5) Unter 
Kyan-Pascal zu SYS-Files compilieren 


FILETEST.TEXT 

FIBTEST.TEXT 

(1) FILETEST erzeugt Demo-Testfiles, die 
mit FIBTEST analysiert werden; (2) 3/86, S. 
48; (3) Il+, Ile oder Ilc; (4) UCSD-Pascal 
1.1 und 1.2; die Dateien müssen zunächst 
mit GETDOS (s. u.) auf Pascal-Diskette kon- 
vertiert werden; (5) FILETEST und FIBTEST 
compilieren und dann FILETEST und FIB- 
TEST starten (in dieser Reihenfolge) 


MESSWERT.START 

MESSWERT 

MESSWERT.TITEL 

MW.ZEICHENSATZ 

(1) Programm zur Auswertung von Meß- 
wertkolonnen; (2} Heft 3/86, 5, 58; (3) II+, 
lle oder Ilc; ggf. Epson-Drucker FX-80 mit 
Grafik-Interface; (4) DOS 3,3, ggf. in LC 
geschoben; (5) RUN MESSWERT.STÄRT: 
(6) das DOS wird gepatcht 


GETDOS.TEXT 

GETDOS.CODE 

AND_7F.TEXT 

AND_7F.CODE 

(1) Verbesserte Version von GETDOS aus 
Heft 1/85, S, 70; Konvertierung von DOS- 
3.3-Textfilles in USCD-Pascal-TEXT-Files; 
speziell für Peeker-DOS-Sammeldisketten 
konzipiert; (3) II+, Ile oder Ifc; 2 Drives; (4) 
USCD-Pascal 1.1 oder 1.2; (5) Ihre UCSD- 
Arbeitsdiskette booten, Sammeldisk #15 
einlegen, Ef{xecute GETDOS, wieder Ar- 
beitsdiskette in Drive 1 und eine der 
Peeker-Sammeldisketten mit UCSD-Text- 
files in Drive 2 einlegen, Return drücken für 
DOS-Catalog, Nummer des Textfiles einge- 
ben, Rest automatisch 


3.2. Benutzerdefinierte Befehle 


In Kyan-Pascal sind keine weiteren String-Be- 
fehle implementiert. Es ist jedoch möglich, eige- 
ne Befehle als Funktionen oder Prozeduren zu 
definieren, Diese können als sog. Include-Files 
angelegt werden. Ein Include-File (to include = 
einfügen) ist eine normale Quelltextdatei, die 
beim Compilieren in einen anderen Quelltext 
(Main-File) eingefügt wird. Beispiel: 


{ /RAM/MAIN} 

PROGRAM MAIN; 

BEGIN 

WRITELN ('Main-File'); 
#1 /RAM/INCLUDE 

END, 

{ /RAM/INCLUDE} 

WRITELN ('Include-File); 


u m mE go oo en 


MAIN 


INCLUDE 





Angenommen, der Main-File sei unter dem Na- 
men „/RAM/MAIN“ und der Include-File unter 
dem Namen „/RAM/INCLUDE“ auf der RAM- 
Disk gespeichert. Wenn man nun den Kyan- 
Compiler mit „PC“ startet und „/RAM/MAIN“ 
als Quelltext angibt, so wird zunächst der Main- 
File eingelesen. Sobald der Compiler auf eine 
Quelltextzeile stößt, die mit 

+1 

beginnt, interpretiert er die nachfolgende Zei- 
chenkette als ProDOS-Dateinamen für den In- 
clude-File. Der Include-File wird in den Main- 
File so eingespielt, als wäre der Include-File 
physischer Bestandteil des Main-Files. 

Das Programm STRINGDEMOS enthält Funk- 
tionen und Prozeduren für die String-Befehle 
LENGTH, CONCAT, POS, COPY, DELETE und 
INSERT. Zwischen den Trennstrichen 
(„=====") befindet sich der eigentliche In- 
clude-File. Danach folgenden jeweils mehrere 
Anwendungsbeispiele für die Befehle. Zweck 
und Anwendung der Befehle ist in dem Listing 
genau beschrieben, so daß wir uns hier auf 
einige allgemeine Angaben beschränken 
können: 

1 Ihr eigenes Hauptprogramm muß die Kon- 
stante STRLEN sowie den Typ STRING im Pro- 
grammkopf festlegen. Die Namen „STRLEN* 
und „STRING“ sind obligatorisch, weil sie in 
den String-Routinen verwendet werden. 

2 Die String-Befehle funktionieren nur in bezug 
auf einen String-Typ mit einer bestimmten Län- 
ge. Dies ist der entscheidende Nachteil gegen- 
über UCSD- und Turbo-Pascal, deren einge- 
baute Roufinen sich auf Strings beliebiger Län- 
ge beziehen. Wir werden deshalb im Peeker 
String-Routinen veröffentlichen, die diese Be- 
schränkung umgehen und im Übrigen aus Grün- 
den der Kompaktheit und Geschwindigkeit in 
Assembler geschrieben sind. 

3 Die String-Routinen sind bewußt fehlertole- 
rant programmiert, weil UCSD- und Turbo-Pas- 
cal bei illegalen Parametern (z.B. Position P > 
Länge L) ohne Fehlermeldung durchdrehen. 


4. Dateien 


Aus Platzgründen ist die Darstellung der 
Dateiverwaltung stark gestrafft und setzt zudem 
ProDOS-Kenntnisse voraus. 
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Kyan-Pascal benutzt die drei ProDOS-Dateity- 
pen SYS, BIN und TXT. Programmdaleien sind 
SYS-Dateien, Datendateien können BIN- oder 
TXT-Dateien sein (s.a. Listing FILEDEMOS). 


4.1. Textfiles 


Eine TXT-Datei (= Texftfile), die in Kyan-Pascal 
FILE OF TEXT heißt und mit WRITELN/ 
READLN bearbeitet wird, ist eine sequentielle 
ASCII-Textdatei mit zumeist unterschiedlich 
langen Dateifeldern, die durch Returns (R) be- 
grenzt werden und von OÖ bis n durchnumeriert 
sind, z.B. 

Feld O0: Hans + R= 5 Zeichen 

Feldi:im+ R = 3Zeichen 

Feld 2: Glück + R = 6 Zeichen 

Als Feldinhalte sind Einzelzeichen, Zeichenket- 
ten, Ganzzahlen und Dezimalzahlen zugelas- 
sen, wobei Zahlen durch WRITELN in ASCII- 
Ziffernfolgen konvertiert und durch REÄDLN in 
die binäre Form zurückverwandelt werden. 

Vor dem Öffnen einer Datei (ProDOS-OPEN) 
müssen der externe Dateiname, z.B. 

CONST TEXTNAME = '/VOL/TEXTFILE’; 

und der interne Dateiname, z.B. 

YAR TEXTHIEE-FIEE OF TEXT: 

festgelegt werden. Der externe Dateiname un- 
terliegt den üblichen ProDOS-Regeln und kann 
im Falle einer Variablen auch über die Tastatur 
eingegeben werden. 

Das Speichern einer neuen Datei beginnt mit 
REWRITE (TEXTFILE, TEXTNAME); 

und das Einlesen oder Überschreiben einer al- 
ien Datei mit 

RESET (TEXTFILE, TEXTNAME); 

Für die nunmehr geöffnete Datei wird ein 512- 
Byte-l/O-Puffer im RAM-Speicher zwischen 
Programm und Variablen bereitgestellt, und der 
Positionszeiger wird auf Feld 0 gesetzt. 

Danach können die Variablen V1, V2 usw. se- 
quentiell mit 

YRIBEENMTEXTEIEE VD): 

WRITELN (TEXTFILE, V2); usw. 

gespeichert und mit 

READLN (TEXTFILE, V1); 

READLN (TEXTFILE, V2); usw. 

eingelesen werden. Ein ProDOS-CLOSE wird 
am Ende des Kyan-Programms automatisch 
durchgeführt, so daß man die Diskette nicht 
vorzeitig aus dem Laufwerk nehmen sollte. 


4.2. Datafiles 


Eine BIN-Datei (= Datafile), die in Kyan-Pascal 
FILE OF + Datentyp heißt (FILE OF INTEGER, 
FILE OF REAL usw.) und mit PUT (= Schrei- 
ben) und GET (= Lesen) bearbeitet wird, ist 
eine „sequentielle Random-Datei" mit gleich 
langen Dateifeldern, die nicht durch Returns 
begrenzt werden und von O0 bis n durchnume- 
riert sind, z.B. 

Feld 0: Hansül = 6 Zeichen 

Feld 1: imlOOO = 6 Zeichen 

Feld 3: GlückO = 6 Zeichen 

Da keine „Loch“-Random-Dateien (s. „Pro- 
DOS für Aufsteiger“, Bd. 2, S. 62) zulässig sind, 
kann auf BIN-Dateien sowohl sequentiell als 
auch — mit Hilfe des SEEK-Befehls — „at ran- 
dom", d.h, wahlfrei zugegriffen werden. Als 
Feldinhalte sind alle Pascal-Datentypen zuläs- 
sig, die 1:1 gespeichert werden (z.B. bei Inte- 


ger- und Real-Zahlen in binärer Form und nicht 
als ASCII-Ziffernfolgen). 

Vor dem Öffnen einer Datei (ProDOS-OPEN) 
müssen der externe Dateiname, z.B. 

CONST DATAFILE = ’/VOL/DATAFILE’; 

und der interne Dateiname, z.B. 

VAR DATAFILE: FILE OF INTEGER; 

festgelegt werden. 

Das Speichern einer neuen Datei beginnt mit 
REWRITE (DATAFILE, DATANAME); 

und das Einlesen oder Überschreiben einer al- 
ten Datei mit 

RESET (DATAFILE, DATANAME): 

Für die nunmehr geöffnete Datei werden ein 
/O-Puffer sowie eine Dreieckstauschvariable 
(= Puffer-Variable = Fenster-Variable) namens 
DATAFILE } (interner Dateiname + ?) bereit- 
gestellt. Während REWRITE den Positionszei- 
ger auf Feld O setzt und sonst nichts macht, wird 
bei RESET (1) der Positionszeiger auf Feld O 
gesetzt, (2) Feld O der Variablen DATAFILE ?} 
zugewiesen und (3) der Positionszeiger auf 
Feld 1 vorgerückt. Mit anderen Worten: Nach 
RESET ist bereits Feld 0 eingelesen. Um diese 
unnötige Komplikation zu vermeiden, die noch 
von der Lochstreifenära herrührt, ersetze man 
RESET (DATAFILE, DATANAME); 

durch den Doppelbefehl 

RESET (DATAFILE, DATANAME); 

SEEK (DATAFILE, 0); 

Um die Variablen V1, V2 usw. zu speichern oder 
einzulesen, muß man die ebenfalls aus der 
Lochstreifenära stammende Dreieckstauschva- 
rrable zu Hilfe nehmen. 

Schreiben: 

DATAFILEF := Vi; 

PUT (DATAFILE); 

DATAFILEF := V2; 

PUT (DATAFILE); usw. 

Lesen: 

GET (DATAFILE); 

v1 := DATAFILE # ; 

GET (DATAFILE); 

v2 := DATAFILE } ; usw. 

Bei Datafiles ist wie bei Textfiles ein ProDOS- 
CLOSE entbehrlich. 


Sonstiges 

1 Mit dem nur bei Datafiles gültigen Befehl 
SEEK (DATAFILE, Feldnummer); 

laßt sich ein beliebiges Feld „at random“ an- 
steuern. 

2 Mit dem booleschen Befehl 

IFEOF (DATAFILE) THEN... 

kann sowohl bei Datafiles als auch bei Textfiles 
geprüft werden, ob das Dateiende (= End Of 
File) bereits erreicht wurde. 

3 INPUT und OUTPUT sowie sonstige Dateina- 
men im Programmkopf werden ignoriert, weil 
die Standard-Ausgabe in Kyan-Pascal über PR 
umgelenkt wird. 


Kurzhinweise zur Sammeldisk 

Die Peeker-Sammeldisk enthält die Quelltexte 
DATENDEMOS 

SUBDEMOS 

STRINGDEMOS 

FILEDEMOS 

—- Quelltexte über DOSTOPRO auf Ihre Kyan- 
ProDOS-Arbeitsdiskette konvertieren. 

— Quelltexte über PC compilieren. 

— Mittleren Teil von STRINGDEMOS als In- 
clude-File gesondert abspeichern. 


Peeker 3/86 


STRINGDEMOS 
PROGRAM STRINGDEMOS; 
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FUNCTION POS (T,G:STRING) : INTEGER; 
VAR I,J,L:INTEGER; F: BOOLEAN; 


| BEGIN 
L := STRLEN; 
EL WHILE (T[L] = ' ') AND (L <> 1) DOL :=L- 1: {Laenge von T} 
STRLEN = 10; {Name 'STRLEN' erforderlich} I := 0: {Zaehler fuer €} 
2 REPEAT 
STRING = ARRAY [1.,STRLEN] ÖF CHAR; {Name 'STRING' erforderlich} J := 1: {Zaehler fuer T} 
’ f F := TRUE; {Flag} 
VAR 5. G. T, Tl, T2: STRING; L, P, A: INTEGER: {Nur fuer Demo} WHILE (J <= L) DO 
||Z— Tl BEGIN 
{String-Include-Datei, zusammengestellt von U.Stiehl im Dez. 1985} | IF (G[I+J] <> T[J]) THEN F := FALSE; 
{ . Je ze). 
String-Befehle END; 
I:=I+1l 
i UNTIL (F = TRUE) OR (L+I > STRLEN); 
L := LENGTH (5); Integer-Funktion: L wird geaendert IF (F = TRUE) THEN POS := I ELSE POS := 0 
G := CONCAT {T1,T2}); String-PFunktion: G wird geaendert END: 
P := POS (T,6): Integer-Funktion: P wird geaendert (oe a neu ur en a en 3 
T :- copr [6,P,3): String-Funktion: T wird geaendert 
DELETE (G,P,A); a G wre geaendert COPY (= Substring) extrahiert den Teilstring T aus dem 
INSERT (T,G,P); String-Prozedur: G wird geaendert Gesamtstring G ab Position P in der Anzahl A Zeichen; 
: i . bei fehlerhaften Parametern soweit wie moeglich 
8 = String, G = Gesanmtstring, T = Teilstring, ferner Tl, T2 Aufrufen mit T := COPY (G,P,A). Beispiel: T := COPY (G,4,3) 
L = Laenge, P = Position, A= Anzahl der Zeichen 
123456 Zaehlleiste 
Im Hauptprogrammkopf muessen definiert werden! p pi 
als CONST STRLEN mit Integer-Wert >= 2, er 
als TYPE STRING mit 1,.STRLEN. Pascal’ G 
} Gl ET 
(——  —— — — —  — — — ' 
‚ FUNCTION COPY {G:STRING; P,A:INTEGER) :STRING; 
LENGTH ermittelt Netto-Laenge ohne Leertasten am String-Ende, d.h. VAR I: INTEGER: T:STRING: 
Leertasten links werden mitgezaehlt, Leertasten rechts abgezogen. BEGIN 
Aufrufen mit L := LENGTH ee Beispiele: FOR I := 1 TO STRLEN DO ] = tt, {Loeschen} 
FOR I := 1 TO A DO {Wenn A < 1, dann Exit!} 
125 Zaehlleiste IF (P+I <= STRLEN+L) AND (P>0) THEN T[I] := G[P+I-1]; 
S := 'abc' L = 3: Keine Leertasten. COPY :=T 
5 ı= ! ' L=0: Nur Leertasten = Nullstring. END: 
5 = !a ' L=1: Leertasten rechts entfernt. a N SEE ER EEE ESE TEE } 
S := ta 'L=2: Fushrende Leertaste zaehlt mit, { 
Ss := !fac' L= 3: Leertaste in der Mitte zaehlt mit. DELETE entfernt aus Gesantstring G die Anzahl A Zeichen 
} ab Position P. Danach ist G rechts mit der Anzahl A 
FUNCTION LENGTH (S:STRING) : INTEGER; Leerzeichen aufgefuellt. Bei zu grossen Werten 
VAR L: INTEGER; von P und A wird entfernt und geloescht, soweit es geht, 
BEGIN Aufrufen mit DELETE (G,P,A), Beispiel: DELETE (G,5,5) 
L.:= STRLEN; WHILE (S[L]| = ! ") AND (L >11) DO ’L :©=L = 1; ee ee. 
IF (L= 1) AND (S[1] = ' ') THEN LENGTH := 0 ELSE LENGTH := L > 8 E 2 
END; = 
Pe waere an un.ıenen urıg 12345 A=ıh 
{ 'Kyan-Kurs:' G vorher 
1 „ F 
CONCAT vereinigt die 2 Teilstrings Tl und T2 zum Gesantstring G. “o G nachher 


Aufrufen mit G := CONCAT (T1,T2). Beispiel: 


1234567890 Zaehlleiste 


F 
'abcde zn 
'fghij ı T2 
'abcde ' Zunaechst Tl in GabP=1 


'abedefghij' Dannn TZ inGabP=6 


PROCEDURE DELETE {VAR G: STRING: P,A: INTEGER]}:; 

VAR I: INTEGER; 

BEGIN 

IF {(P<1) THEN P := 1; IF (P > STRLEN) THEN P := STRLEN; {illegal} 
|  WHILE (P+A > STRLEN+1) DO A := A - 1; {illegaler A-Wert} 

FOR I := P TO STRLEN-l DO IF (I+A <= STRLEN) 

THEN ET] := GII4A] ELSE EI] = + 

FOR I := STRLEN DOWNTO STRLEN-P+1l DO IF (I>0) THEN G[I] := * ' 


Wenn Tl und T2 nicht zusammen in G passen, wird zunaechst Tl in G | END: 


kopiert und dann soviel von T2, wie in G noch Platz ist. 


FUNCTION CONCAT (T1,T2: STRING) :STRING; 
VAR I,J,P:INTEGER; G:STRING; 


m 1) 


{ 


INSERT fuegt den Teilstring T in den Gesamtstring G 





BEGIN ab Position P ein. Wenn P zu gross ist, 

ne EU, wird G von rechts entsprechend gekuerzt 

FOR I := 1 TO STRLEN DO Aufrufen mit INSERT (T,G,P). Beispiel INSERT [1,G,5} 

BEGIN 

G[I] := TI[I]; {TI ab links in G kopieren} 1234567890 Zaehlleiste 

IF (G[I] <> ' ') THENP :=1I P P=4 

END; 'einen 'G vorher 

Ji'=Ll; 'fueg wi: 

FOR I := P TO STRLEN-1l DO 'einfuegen ' G nachher 

BEGIN 

G[I+1] := T2[J]: {T2 ab Leertasten in G kopieren) PROCEDURE INSERT {T:STRING; VAR G:STRING; P:INTEGER): 

J:=J+r]l VAR LT,J,L:INTEGER; 

END; BEGIN 

VONLAL TG IF {P<1) THEN P := 1; IF (P>STRLEN) THEN P := STRLEN; {Fehler} 
END; LE = SSTRLEN WMILE (TIL) EN) AND (Le DO LE 
{--——----- 2...) IF (L<>1) OR (T[1] <> ' ') THEN {T als Nullstring ignorieren} 
{ BEGIN 

POS (= Instring) ermittelt die Position P des Teilstrings T im ne 
Gesamtstring G. Wenn T in G nicht enthalten ist, WHILE (P <= STRLEN) AND (J <= L) DO 
wir P auf 0 gesetzt. Aufrufen mit P := POS {T,G). Beispiel: BEGIN 

FOR I := STRLEN-1 DOWNTO P DO Gf[I+1] := G[I]; 

123456 Zaehlleiste GP se EN: Fe Felde] 

P P errechnet END 

'Peeker' G END 

'se 'T7,abPinG END; 
} 
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(Donas} 


BEGIN 

WRITELN ('"Length-Deno 
{1234567890 Zaählleiste} 

5 := "ABODEFGHIJ': L := LENGTH (S); WRITELN (L); {10} 

5 :='A U := LENGTH (S): WRITELN (L); {1} 

ht Su "ı L := LENGTH (5); WRITELN (L); {0} 

Ste" AhAa AN; L := LENGTH (S); WRITELN (L); {10} 





a en  _ _ _ _____ 00001 ) F 


VESDELRI En sahen een ee zu 
(1234567390 Zaehlleiste} 


Tl := '"ABCDE #: 

T2 := "FGHIJ u := CONCAT (T1,T2): WRITELN (G): 
L'ABCDEFCHIJ') 

Ti er i ä . 

T2 := "FGHIJ '!=- G := CONCAT (T1,T2); WRITELN (G}; 
("FGHLS ') 

Ti := "ABUDE ". 

er) ': 6 := CONCAT (T1,T2); WRITELN (G): 
("ABCDE ' 

Ti := Ar; 

T2 =! B!= G := CONCAT (T1,T2); WRITELN (G); 
0! A' Fehler} 

Tı := "ABEDEFGHI "'; 


T2 z= "ABODEFGHIJ'"; G := CONCAT ({T1,T2); WRITELN (G); 
("ABODEFGHIA' Fehler} 

T:='! Br 

Ta se ! 16 := CONCAT (T1,T2); WRITELN (G, '*') 
:t* "} 

WRITELN ('"Pos-Deno 
(1234567890 Zaehileiste} 


ee kn 


G := "ABCDEFGHIJ'; 
Toi= Be tz: ® = POS (T,G); WRITELN (P); {2} 
G := "ABCDEFGHIJ*; 
T:= "BFGHLI "=. P := POS (T,G); WRITELN (P); {5} 
Ge! #: 
er ': P := POS (T,G):; WRITELN (P}: {1} 
G := "AAhAAAAAAA": 
Tel k# P. i= POS (T,G): WRITELN (P); {1} 
G := "AARAAAANAA”: 
Yo rs P s= POS (T,G);: WRITELN {P); {0} 
Gr=! A'; 
1m A'; P := POS (T,6); WRITELN (P); {1} 


WRITELN I "Copy-Demg —— 
(1234567830 Zaehlleiste} 

"ABODEFCHLJ':; 

corY (6.1.5): WRITELN (T]: ["ABCDE') 

corY (6.6.5): WRITELN (T}: ['FGHTLJ’} 

COPY (G.9,8); WRITELN (T}; ('Id', Teilkopie) 
COPY (6,0,8]; WRITELN (T, 'e'); (fehlerhaft) 
COPY (G.0.0): WRITELN (T, '#*"'):; (Tehlerhaft] 


in 


r 


44494445 
Il 


WRITELN ( '"Delete-Deno ----- +! |} 
(1234567890 Zaehlleiste)} 


G := "ABCDEFGHIJ"; DELETE (G,1.10): WRITELN (G, '«'): 


5 } 

G := "ABCDEFGHLJ': DELETE (G,5,5): WRITELN {6)} 
("ABCDJ ') 

G = 'ABCDEFGHIJ': DELETE [G,2,2): WRITELN (6); 
("ADEFGHLJ  ") 

Ge! A"s DELETE (G,1.9): WRITELN (6]: 
("A ') 

Gm tA ": DELETE (G,1,1); WRITELN (G, '#'}; 


(' '} 


WRITELN ("Inssrt-Deno 
(1234567890 Zashlleiste) 

G := "ABCDEI 1. 

T := "FGHI ': INSERT (T,6G,&]; WRITELN (6); 
I '"ABCDEFGHIG"] 

Ge "J er 

T := "ABGDEFGHI '; INSERT (T.6G,11; WRITELN (6); 
['ABCDEFCHIJ'} 





Ge! FGHIJ'; (Fuehrende Lesrtästen gelten!] 

T := "ABCDE '» INSERT (T,G,1); WRITELN (G}; 
["ABCDE ‘ Fehler} 

G = " AHA '; 

T:= 'BBB "+ INSERT (T,6G,7); WRITELN (G); 
E* BEBA' Fehler) 

Mr Hl ur 

T := 'ABC + INSERT (1.6.5): WRITELN (6); 
gi Aso " 

END, 
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FILEDEMOS 


PROGRAM FILEDEMOS; 


CONST 

MAX = 100; 

DATANAME = '/RAM/DATAFILE'; 

TEXTNAME = '/RAM/TEXTFILE'; 
VAR 

I: INTEGER; 

ZÄHLEN: ARRAY [O..MAX] OF INTEGER; 
DATAFILE: FILE OF INTEGER: 

TEXTFILE: FILE OF TEXT; 


























PROCEDURE INITARRAY; 
BEGEN FOR I := O0 TO MAX DO ZAHLEN [I] := I; END: 
PROCEDURE CLEARARRAY; 
BEGIN FOR I := 0 TO MAX DO ZAHLEN [I] := 0; END; 
PRÖCEDURE SHOWARRAY; 
BEGIN FOR I := O0 TO MAX DO WRITE (ZAHLEN [1]:5); 
WRITELN; END; 
Tr Te ee } 
BEGIN 
WRITELN ('Neuen Datafile speichern: Rewrite, Put'); 
INITARRAY; 
REWRITE (DATAFILE, DATANAME); 
FOR I := 0 TO MAX DO 
BEGIN 
DATAFILET := ZAHLEN [I]; PUT (DATAFILE) 
END; 
SHOWARRAY; 
WRITELN ('Alten Datafile einlesen: Reset, Seek 0, Get'); 
CLEARARRAY; 
RESET {DATAFILE, DATANAME):; SEEK (DATAFILE, 0); 
FOR I := 0 TO MAX DO 
BEGIN 
GET (DATAFILE); ZAHLEN [I] := DATAFILE}; 
END; 
SHOWARRAY; 
WRITELN ("Alten Datafile ueberschreiben: Reset, Seek 0, Put'!; 
INITARRAY; 
RESET (DATAFILE, DATANAME): SEEK (DATAFILE, 0); 
FOR I := 0 TO MAX DO 
BEGIN 
DATAFILET := ZAHLEN [I]; PUT (DATAFILE)}; 
END; 
SHOWARRAY; 
WRITELN ("Alten Datafile at random einlesen: Reset, Seek, Get'); 
CLEARARRAY; 
RESET (DATAFILE, DATANAME)}; 
FOR I := MAX DOWNTO 0 DO {rueckwaerts} 
BEGIN 
SEEK (DATAFILE, I); GET (DATAFILE); ZAHLEN [I] := DATAFILE?; 
END; 
SHOWARRAY; | 
nn — | 
WRITELN {'Neuen Textfile speichern: Rewrite, Writeln'); 
INITARRAY; 
REWRITE (TEXTFILE, TEXTNAME); 
FOR I := 0 TO MAX DO WRITELN (TEXTFILE, ZÄHLEN [I]); 
SHOWARRAY; 
WRITELN ("Alten Textfile einlesen: Reset, Readln'); 
CLEARARRAY; 
RESET (TEXTFILE, TEXTNAME)}; 
FOR I := 0 TO MAX DO READLN (TEXTFILE, ZAHLEN [1]); 
SHOWARRAY; 
EI LI EN EN } 
WRITELN ('Datafile unbekannter Laenge mit EOF einlesen'); 
RESET (DATAFILE, DATANAME)}; 
WHILE NOT EOF (DATAFILE) DO 
{Erst Write, dann Get!} 
BEGIN WRITE (DATAFILE?:5); GET (DATAFILE); END; 
WRITELN; 
WRITELN ('Textfile unbekannter Laenge mit EOF einlesen'); 
RESET (TEXTFILE, TEXTNAME); 
WHILE NOT EOF {TEXTFILE) DO 
{Erst Readin, dann Write!} 
BEGIN READLN (TEXTFILE, I); WRITE (I:5): END; 
WRITELN; 
m 
END. 
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DEEKER AUFTRAG FUR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 
Börse 


[|] suche Hardware L} suche Software DL] Verschiedenes 
L] biete Hardware [| biete Software DL] Chiffre 










I U a ID TR I DI I A DR RR RR U IN 
I TI I T IT EI TI TI 
NASSEEITDHLEITENEEEEBENEREENHEREN 
Gelegenheitsanzeigen RE TI FIIN IT 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,- zuzügl. MwSt. 





Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software | 
rt 24244234342 DEEKER 94 
@ Kontakte knüpfen und el ge 


vieles mehr 








» Peeker- Börse 


Zu der im Peeker, Heft ‚seite _________ erschienenen 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


Anzeige über z 





bitte ich um detaillierte Information. 
Ich wünsche [1] Prospekt, Datenblatt D Preisliste I schriftliches Angebot [] tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
| Zahlungsbedingungen 
| auf. 


Verkaufe neuwertigen Typenrad- 
drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 


nur DM 18,81 inkl. MwSt. 





a Produkt-Karte 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Musteranzeige gewerblich 


1 Druckzeile a 32 Buch- 7 DEEKER . N 
staben nur DM 11,- zuzügl. ee DE] 


ges. MwSt. Mindestens 
2 Druckzeilen 
Beispiel: 


Schreiben Sie uns, wenn Sie technische Fragen zu Aufsätzen im Peeker 
haben. Beachten Sie jedoch, daß die Redaktion keine Auskünfte über Be- 
zugsquellen erteilt: 








Neu im Angebot: Professionelle, 
separate Tastatur für Apple II plus 
16 Funktionstasten und separatem 
Ziffernblock. 

Fa. Keyboard & Co. 








nur DM 62,70 inkl. MwSt. 


us Info -Karte 
| 





Vorname, Name 


Bitte veröffentlichen Sie den um- 
stehenden Text von Zeilen 
a DM in der nächsterreich- 
baren Ausgabe vom Peeker 















Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


& Peeker-Börse 


Datum Unterschrift 


ZIYYIN 





Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 
PLZ/Ort 


Telefon mit Vorwahl 


"Anschrift der Firma angeben, bei der Sie 
bestellen bzw. von der Sie Informationen 
wünschen 





=» Produkt-Karte 


Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


N 
5 
=| 
[=] 


PLZ/Ort 


Telefon mit Vorwahl 


DD Info -Karte 







POSTKARTE 


Peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 





POSTKARTE 


Inserent 


Straße 


PLZ/Ort 


POSTKARTE 


Peeker 
Redaktion 


Dr. Alfred Hüthig Verlag 


Postfach 102869 
6900 Heidelberg 1 





YYIN 


Produkt- 
Karte 


Wünschen Sie 
weitere Informatio- 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 


Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktion 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrag 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten und Ihren 
Absender ein. 


DEEKER 





Verpassen Sie Ihrem Apple den richtigen BiB GSW UPG II APPLE & CP/M-80 & MS-DOS 


mit der C86 Steckkarte (eine universelle Programmierkarte) en WARE & HARDWARE 
Die C86-Karte ist ein kompletter 16-Bit Mikrocomputer mit ei- | als - Hr iefern die EN ES Dun Apple Ile mit max. 3 N > 
i ö = ; ppleworks mit mehr als LITE A - 
ann Speicherbereich (512KB} und Schnittstelle zum kompatiblen T- de SpeeDemon 3.56 MHz Coproz. für II-H/e(MeT) - m. DM 980.— 
PPIEDUS, Rechner FIN UPC-Programmer-Card 2716-128 komfortabel .......... DM 580.- 
Die Erweiterung bietet Ihnen: 72 VO Port Card programmierbar DOS+CP/M . .. ........ DM 350.- 
e einen leistungsfähigen 16-Bit Mikrocomputer mit Intel a SO Print kan Sl en ee 
8086CPU, es sind fast alle betriebssystemgestützten IBM u: CP/M-Plus-Card, 6 MHz, 64K, CP/M3.0{ALS) . . . .. ...... DM1250.- 
PC Programme auf der C86-Karte lauffähig NicePrint-Printer-Karte (Spies Loborat.) .............. DM 490.- 
e serienmäßig 128KB oder 512KB Speicherkapazität ® jetzt auch mit 12,5 V Brennspannung ln, gr m a REN DM 300 
ROERSAO BL Wesen en I herenB ne ® Komfortable Bedienungssoftware mit Menüsteuerung ELF kompl. StatitleSoftware (WW)C oo. 000.0 0.. DM 800 
e alle notwendigen Teile auf einer Apple-Slotkarte | nn n keine Umschaltung über DIP-Switches auf Prime -Pltter-Graik-Software (Primesoft) - 222 2222220.. DM K0- 
Mit dieser Erweiterung entspricht Ihr Apple dem neuesten er Karte! -I6-Tester inkl. Software... 0.000 en = 
Stand der Technik. . £ Zu © Anzeige und Sockel auf externer Platine — 28poliger Memory-Tester & Eprom-Writer/Testet „==“... +. +: DM 550.- 
C86mit 128K nur 598,- DM Nullkraftsockel — 500-mm-Flachbandkabel nn ee! ans u A 
C86mit 512K nur 998,- DM . = DOMLTVON Bl 2716, 2732, 2732A, 2764, APPLE Turnover (Vertex) Lesen/Schreiben von Apple Disks 
D 86, Diskettencontroller zur C86-Karte 2 j LEHRE EL, Veenhlekener aha la 
« ermöglicht das Einlesen aller handelsüblichen Disketten- DM 580.- DE abi sen Suieibancin: 
CP/M & MS-DOS Formate im IBM 22.22.20 oa. DM 600.- 
formate (MS-DOS, CPM, Apple-DOS) in den Apple od. com- ELF PC kompl. Statistik Software (TWG) . . ............ DM 800.- 
patible Computer. PROM Blaster 28-Pin (Apparat inc.) .. 2... ccecccc no. DM 620.- 
& 2 z. B. für alle Systeme 
D86 298,- DM CSW 72 U O Port Card Printerchanger 3 paralt. Drucker auf 1 Miero 
IBM AT COMPATIBLER MIKRO-COMPUTER ab 7500,-DM © 9 programmierbare 8-Bit-/O-Poris ua I ee BEER DM 600.- 
IBM XT GOMPATIBLER MIKRO-COMPUTER ab 1600,-DM Su lo unlernlen/Beinebesystemen int, Kabel leizell (Keyzane) "nee DM 500.- 


HANDBUCH FÜR IBM COMPATIBLE COMPUTER 68,-DM DM 350.- Shuffiebufler 64 KÜS) . 20004440 0ennn nenn DM 1350.- 
Wir sind Import-Spezialisten und bieten Ihnen eine große Auswahl an Software 


a 2 : und Hardware bedeutender Hersteller aus den USA und England. 
Händleranfragen erwünscht: Anton Peter & Partner Informationen gegen DM 3.- in Briefmarken. 


en WEISS COMPUTER bipi.-Psych. Karl-Heinz Weiß WEISS COMPUTER _ Dipi.-Psych. Karl-Heinz Weiß 


Am Wiesenhof 17, 2940 Wilhelmshaven, Tel. 0 44 21/8 31 79 i ' 
alle Preise incl. 14% MWST, zuzgl. Verpackung u, Porto Am Wiesenhof 17, 2940 Wilhelmshaven, Tel. 0 44 21/8 31 79 
Apple und IBM sind eingetragene Markenzeichen 





Apple und IBM 
kompatible Gomputer 


16K, Z80, Diskcontroler je. . . . . 75- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze . . . . ...7149- 
Ile-kompatibles Motherboard 
ohne Firmware . . . u 5498,- 
Erphi-controler mit Autopatch“ „5 w285- 
TEAC FD-54A mit Apple-Buss . . .298,- 
TEAC FD-55B 2 x 40 Track . . . „375,- 
TEAC FD-55F 2 x 80 Track . . . .395,- 
FD4 Spezialcontroler für Laufwerke 
mit bis zu2x 80 Track . . . ...120- 
OLYMPIA compact NP. . . . . 1298, _ 
Monochrome Monitore „ . . . ab 375,- 
Farbmonitore . . . ab 998,- 
Tastaturen für IBM und Apple . ab 298,- 
512K-RAM-Karte mit 256 K 
bestückt . . 298,— 
Apple Super- -Modem- Karte inkl. dt. 
Software und dt. Handbuch . . . . 348,—- 
Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 
128K Karte (Saturn kompatibel) . 248,— 


Ulf Mohwinkel Electronic 
Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 

Telefon 0214/93781 od. 95060 


Zwei Themen- eine Ausstellung ® Die umfassende Marktübersicht für Hobby- 
| 9 +rDnIE Elektroniker und Computer-Anwender, 
Ä Klar gegliedert: 


9. Ausstellung für Funk- und Hobby-Elektronik In Halle 5 das Angebot für CB- und 


Amateurfunker, Videospieler, DX-er, Radio-, 
Tonband-, Video- und TV-Amateure, für 
DU Elektro-Akustik-Bastler und Elektroniker. 
Mit dem Actions-Center und Laborversuchen, 
2. Ausstellung Experimenten, Demonstrationen und vielen 
für Computer, Tips. 
S h 1) Software In Halle 4 das Super-Angebot für Computer- 
und Zubehör Anwender in Hobby, Beruf und Ausbildung. 
Dortmund Dazu die „Computer-Straße”, als Aktionsbe- 
= reich, der Wettbewerb „Jugend programmiert” 
23.—- 27. April 1986 una der Stand des WDR-Computer-Clubs 


Apple Il als Daten- 
analysesystem 


berlin 19 Apple 


Mit der Erweiterungskarte Metascope kann der 
Apple Il, II+ und Ile als interaktives Datenana- 
Iysesystem eingesetzt werden. Es lassen sich 
damit serielle Schnittstellen synchron und asyn- 
chron bis 19200 Baud analysieren. Sowohl TY- 
als auch BSC-, SDLC- und HDLC-Übertragung 
wird unterstützt. Darstellbar sind die Zeichen 
ASCH, EBCDIC, Baudot und Hexadezimal. 


Bitte besuchen Sie uns auf der Hannover 
Messe CeBit Halle 7, Stand 106. 


Lange Communications 

LANGE & Co. GmbH 
Unninghauser Str. 70, 4780 Lippstadt 
Tel. (02945) 5449, Tx. 841952 langed 


VIDEO- 1000. 


ITIZER ZUM APPLE IE 


Ei 299, -DM 


ösung 5384 Zee eh t 
SerReserder und Ranors® 


cor 
hmezeit 26 
hnung auf HIRES- Seite 


17 "Brsteföfen, Her.tit nis zu n0o onD. 


Kamera 


Bar ? 
&0 IE: Enars 


[7:61 A io DM das shock. 
oe oral f Fl ; Er Ben gEnbans 


Ing. Birn ur, ai Bin, Sur 10066 Heriin FF 
= 4 = 













Ausstellungsgelände Westfalenhallen Dortmund täglich 9.00-18.00 Uhr 
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IPS UN 


D TRICKS IN 


Teil 6: Der interne Aufbau von Files 


von Dieter Geiß 


In dieser und der nächsten Folge soll auf 
den internen und den externen Aufbau 
von Files eingegangen werden. Mit inter- 
nem Aufbau ist gemeint, wie Files im Spei- 
cher repräsentiert werden. Der externe 
Aufbau beschäftigt sich mit der Darstel- 
lung der Files auf Diskette. Wegen der 
Länge des Artikels wird Teil 6 der Serie 
den internen und Teil 7 den externen Auf- 
bau beschreiben. 

Um sowohl den internen wie den externen 
Aufbau zu verstehen, wollen wir von ei- 
nem kleinen Programm ausgehen, wel- 
ches in Listing 1: FileTest dargestellt 
wird. 

Anhand dieses Listings soll erklärt wer- 
den, was beim Übersetzen und Ausführen 
des Programms genau geschieht. 


48 


In Zeile 1 wird durch die Compiler-Option 
ein Listfile erzeugt, der hier auf den Druk- 
ker ausgegeben wird. Die Änderung des 
Wortes PRINTER in CONSOLE bewirkt, 
daß der Listfile auf dem Bildschirm er- 
scheint. Ein Listfile sollte erzeugt werden, 
wenn man an den Adressen und Längen 
der einzelnen Variablen interessiert ist. 


1. Filetypen 


1.1. Text- und Interaktivfiles 


Der File F1 (s. Listing 1) wurde als Textfile 
definiert, d.h. als „file of char“, was das- 
selbe ist. Er benötigt 301 Words (= 602 
Bytes) Speicherplatz. Warum? 300 Words 
werden vom Compiler Immer für einen 
gepufferten File reserviert. Der Inhalt die- 
ser 300 Words wird aus der Definition für 
einen File-Information-Block (s.u.) ersicht- 
lich. Ein weiteres Word muß für den Typ 
des Files, im Falle des Textfiles ein Zei- 
chen (char), reserviert werden, was 301 


Words ausmacht. Dieses Word beinhaltet 
den Wert der Variablen F1 f , also der sog. 
Fenstervariablen. Sie wird automatisch mit 
definiert, d.h. 

var Fi : text; 

entspricht 

var Fi: fchar; 


Die Fenstervariable stellt immer ein Objekt 
oder Element des Filetyps zur Verfügung. 
Über sie kann mit Get und Put ein File 
gelesen oder geschrieben werden. 

Der File F2, der als interaktiv bezeichnet 
wird, benötigt ebenfalls 301 Words. Auch 
er ist im Prinzip ein „file of char“. Der 
Unterschied zwischen Textfiles und Inter- 
aktivfiles besteht in der Behandlung beim 
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Öffnen des Files durch den Reset-Befehl. 
Während beim Textfile eine automatische 
Get-Operation durchgeführt wird, wird sie 
beim Interaktivfile unterdrückt. Dies ist von 
Bedeutung, wenn ein File für den Zugriff 
auf Bildschirm und Tastatur geöffnet wird, 
Betrachten wir das Programmstück 

reset (F, ' CONSOLE: ’); 

write (Bitte Taste drücken’); 

read (F, C); 

Dabei sei C eine Char-Variable. Man er- 
wartet normalerweise, daß das Programm 
den File F als Bildschirm mit Tastatur 
(CONSOLE) Öffnet, danach die Meldung 
„Bitte Taste drücken“ ausgibt, und daß 
schließlich das Programm beim Read-Be- 
fehl anhält, um die Taste von der Tastatur 
einzulesen. Ist F ein Interaktivfile, so läuft 
dies auch wie erwartet ab. Änders verhält 
es sich, wenn F ein normaler Textfile ist. 
Durch die implizite Get-Operation hält das 
Programm bereits beim Reset-Befen| an 
und wartet nun auf eine Eingabe eines 
Zeichens, um dem Aufruf der Get-Opera- 
tion zu genügen. Man muß also im voraus 
wissen, ob ein Zeichen oder auch eine 
Zahl verlangt wird, denn das Programm- 
stück hätte auch 

reset (F, 'CONSOLE?); 

write (Bitte Zahl eingeben’); 

read (F, 1); 

lauten können, wobei | eine Integer-Varia- 
ble ist. Die Benutzung von Interaktivfiles 
scheint also weniger Probleme mit sich zu 
bringen, wenn die Eingabe über die Tasta- 
tur erfolgt. Bei der Ausgabe spielt es keine 
Rolle, ob ein Text- oder Interaktivfile be- 
nutzt wird. Die vordefinierten Files „in- 
put“, „output“ und „keyboard“ sind alle- 
samt Interaktivfiles, die sich so verhalten, 
wie man es von Ihnen erwartet. 


1.2. Benutzerdefinierte Files 


F3 ist ein File für Paare von Integer-Zah- 
len, also z.B. Koordinaten. Dazu wurde der 
Typ „Koord“ eingeführt, der als Verbund 
(Record) zwei Integer-Zahlen enthalten 
kann. Der File F3 benötigt 302 Words. Die 
ersten 300 Words haben dieselbe Bedeu- 
tung wie bei den Textfiles; die beiden letz- 
ten Words beinhalten die Fenstervariable 
F3?t, die mit F3 definiert ist. Da sie dem 
Typ „Koord“ entspricht, hat sie auch des- 
sen Größe. Im Gegensatz zu Text- und 
Interaktivfiles sind bei Files mit einem an- 
deren Typ als „Char“ keine Read- oder 
Write-Befehle erlaubt, was in Standard- 
Pascal der Fall ist. Man hilft sich hier mit 
Get und Put, womit man die fehlenden 
Operationen ausgleicht. Ein 

read (F3, K); 

entspricht somit der Befehlsfolge 
Ka: 

get (F3); 
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während ein 

write (F3, K); 

durch 

FT :=K; 

PUR(ES>): 

simuliert wird. Auch für Files mit einem 
benutzerdefinierten Typ gilt: Nach einem 
Reset wird ein Get durchgeführt, womit 
sich die Reihenfolge der beiden zu Read 
äquivalenten Befehle erklären läßt. 


1.3. Typlose Files 


F4 wurde als File definiert, der keinem Typ 
angehört. Daraus folgt, daß es auch keine 
Fenstervariable gibt, mithin F4 7 undefi- 
niert ist. Außerdem gibt es keinen Puffer, 
der bei den anderen Filetypen benötigt 
wird, um einen Block von Diskette zu le- 
sen oder auf Diskette zu schreiben. Als 
Vorteil ist anzuführen, daß mit Hilfe dieses 
Filetyps beliebige Datenstrukturen in ei- 
nen File geschrieben werden oder von 
einem File gelesen werden können. Diese 
Datenstrukturen müssen nicht unbedingt 
ein „packed array of char“ sein. Auch eine 
komplizierte kombinierte Record-Array- 
Struktur ist möglich. Die einzige Ein- 
schränkung ist, daß die Größe der benutz- 
ten Datenstruktur ein Vielfaches von 512 
sein muß. Dies kann mit Hilfe der Sizeof- 
Funktion immer getestet werden. Die Va- 
riable F4 belegt im Gegensatz zu den an- 
deren Filetypen nur 40 Words im Spei- 
cher, was am fehlenden Puffer liegt, der 
vom Programmierer zur Verfügung gestellt 
werden muß, wenn er Blockread oder 
Blockwrite aufruft. 


Das Programm FileTest (Listing 1) Öffnet 
vier Files verschiedener Datentypen und 
schreibt in diese Files bestimmte Werte. 
Was dann im einzelnen auf Diskette steht, 
nachdem man das Programm beendet hat, 
wird im Teil 7 über den externen Aufbau 
erklärt. 


2. Die Tricks des Compilers 


Sieht man sich den vom Programm 
FileTest erzeugten Code genau an, so fallt 
auf, daß der Compiler mehrere Beiehle, 
die nicht im Programmtext stehen, dazu- 
schmuggelt (vgl. Peeker 11/85, S. 58: Die 
Extended-File-Option). Für jeden File, der 
in einer Prozedur definiert wird (auch das 
Hauptprogramm ist schließlich nur eine 
Prozedur), werden zwei zusätzliche An- 
weisungen für den File eingefügt. Die er- 
ste Anweisung, die vor alle anderen Be- 
fehle in einer Prozedur — mit Ausnahme 
des Ladens von Segmenten — gesetzt 
wird, ist ein Aufruf der File-Init-Prozedur 
(Prozedur 3 des Pascalsystems). Sie wird 
mit drei Parametern aufgerufen: 
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1. Adresse der Filevariablen F 
2. Adresse der Fenstervariablen F 
3. Länge eines Datensatzes 


Fürs. gilt: 

Länge = 0 — Interaktivfile 
Länge = -2 — Texifile 

Länge = -1 > File ohne Typ 
Länge > 0 — Länge in Words 


In unserem Beispiel FileTest wird „Finit” 
mit folgenden Werten aufgerufen: 

Für Fi 

1. Adresse von F1 (3) 

2. Adresse von Fi T (303) 

3. Länge des Datensatzes (-2 für Textfile) 


Für F2 

1. Adresse von F2 (304) 

2. Agresse von F2 T (604) 

3. Länge des Datensatzes (0 für Interaktiv- 
file) 


Für F3 

1. Adresse von F3 (605) 

2. Adresse von F3? (906) 

3. Länge des Datensatzes (2 für Record) 


Für F4 

1. Adresse von F4 (907) 

2. Adresse von F4f (O = nil) 

3. Länge des Datensatzes (-1 für File ohne 


Typ) 


Die Adressen sind nicht absolut, sondern 
relativ zum globalen Datensegment (glo- 
bale Variablen) zu verstehen. Was im ein- 
zelnen bei Finit geschieht, wird nach der 
Definition des File-Information-Blocks er- 
klärt. 


Am Ende einer Prozedur, in der Files defi- 
niert wurden, wird ein implizites 

close (F, normal) 

für jeden File F eingeführt, bevor eventuell 
geladene Segmente wieder freigegeben 
werden. Damit ist gewährleistet, daß ein 
File nach Ablauf eines Programms immer 
geschlossen wird, falls der Programmierer 
es vergessen sollte. Das Einfügen des 
impliziten Close-Befehls kann durch die 
Compiler-Option 

{$E+} 


verhindert werden, wie bereits in dem 


früheren Teil 4 dieser Serie dargelegt 


wurde. 


3. Öffnen und Schließen 


Über die Befehle „reset“, „rewrite“ und 
„close“ wird in den Handbüchern genug 
geschrieben. Was ich hier ausführen 
möchte, sind Dinge, die vor allem Anfän- 
gern Schwierigkeiten machen. 

Will man einen File neu öffnen, so benutzt 
man bekanntlich die Rewrite-Anweisung. 
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Tabelle 1: Öffnen und Schließen von Files 











File geschlossen mit 








RESET Inormal lock purge crunch 
File da l 2 & 
war nicht I nn 
vorher da 4 4 4 

File geschlossen mit 

REWRITE Inormal lock purge crunch 
File da ! 6 5 7 
war nicht | PEPPER 
vorher da ! 9 8 10 


Legende zu Tabelle 1: 


(1) File wird normal geschlossen 

(2) File wird gelöscht 

(3) File wird „gecruncht” geschlossen 
(4) Input/Output-Error #10 

(5) Alter File unverändert, neuer File 
gelöscht 


Dazu muß man wissen, daß das Pascalsy- 
stem beim Öffnen in Ermangelung des 
Wissens, wie lange der File werden könn- 
te, den größten zusammenhängenden 
Platz auf der Diskette reserviert. (Dies gilt 
nur für Diskettenfiles.) Öffnet man nun 
noch einen zweiten File, bevor der erste 
geschlossen worden ist, wird das Pascal- 
system keinen Platz mehr vorfinden, wenn 
sich der File auf derselben Diskette befin- 
det und vor dem Öffnen des ersten Files 
nur ein zusammenhängender Bereich vor- 
handen war. Es gibt mehrere Möglichkei- 
ten, diesen Nachteil zu beheben: 


a) Man schließt den ersten File vor dem 
Öffnen des zweiten, was jedoch praktisch 
nicht immer möglich ist. 

b) Man benutzt für den zweiten File ein 
anderes Laufwerk, welches allerdings 
nicht immer vorhanden ist. 


c) Man erwirkt durch geschickte Make- 
und Crunch-Anweisungen im Filer, daß 
mehrere zusammenhängende Bereiche 
auf der Diskette entstehen. 


d) Man gibt beim Öffnen des Files eine 
Längenspezifikation an. 


Die Längenspezifikation setzt voraus, daß 
man vor dem Öffnen des Files weiß, wie- 
viele Blöcke der File ungefähr einnehmen 
wird. Wenn man einen „file of integer“ hat 
und 500 Zahlen auf Diskette abspeichern 
möchte, so kann man sich ausrechnen, 
daß diese 500 Zahlen 500 Words = 1000 
Bytes einnehmen werden, was in zwei 
Blöcken unterzubringen ist. Man Öffnet die 
Datei dann z.B. mit 

rewrite (F, 'INTEGER.DATA[2]') 
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(6) Alter File gelöscht, neuer File normal 
geschlossen 

(7) Alter File gelöscht, neuer File 
„gecruncht” geschlossen 

(8) Neuer File gelöscht 

(9) Neuer File normal geschlossen 

(10) Neuer File „gecruncht“ geschlossen 


wodurch das Pascalsystem veranlaßt wird, 
nur zwei Blöcke für diesen File auf der 
Diskette zu reservieren. Man kann staft 
dessen auch 

rewrite (F, 'INTEGER.DATARk]’) 

angeben, womit die Hälfte des größten 
noch zur Verfügung stehenden Bereiches 
oder der zweitgrößte Bereich für diesen 
File auf der Diskette reserviert wird. 

Bei mehr als zwei Files, deren Länge vor- 
her nicht geschätzt werden kann, sollte 
man stets die Spezifikation [x*] ver- 
wenden. 


Beim Schließen von Files gibt es die vier 
Optionen „normal“, „lock“, „erunch“ und 
„purge“. Je nachdem, ob man einen File 
mit „reset“ oder „rewrite“ geöffnet hat 
und der File schon vorhanden war oder 
nicht, ergeben sich 16 Kombinationen, die 
jedoch nicht alle verschieden sind. In Ta- 
belle 1 sind diese angegeben. Um ein 
Beispiel für das Verständnis der Tabelle zu 
geben: Die Sequenz 

rewrite (F, '"TESTFILE'); 

put (F); etc. 

close (F, normal); 

bei der vorher schon ein File namens 
TESTFILE existiert hat, läßt den ursprüng- 
lichen File unverändert, während der neu 
geöffnete TESTFILE wieder gelöscht wird. 


4. EOLN und EOF 


Des öfteren taucht die Frage auf, wie man 
bei der Eingabe ein End-Of-Line (EOLN) 
oder ein End-Of-File (EOF) erkennen 
kann, wenn man von „input“ bzw. „key- 
board“ liest. Angenommen, C sei eine 
Char-Variable und die Anweisung laute 


read (input, C) 

oder einfacher 

read (C). 

Beim Betätigen der Return-Taste wird der 
Variablen C ein Leerzeichen (ASCII SP) 
zugewiesen, während gleichzeitig die 
Funktion 

eoln (input) 

den Wert „true“ ausgibt. Der Wert 13 (AS- 
CII CR) tritt nie als Inhalt von C auf, womit 
Abfragen wie 

ro = ehr) 

niemals das Ende einer Zeile erfassen. Die 
Funktion „eoln“ kann man z.B. durch ein 
readIn (input) 

zurücksetzen. Aber auch beim Einlesen 
eines neuen Zeichens, welches nicht das 
End-Of-Line-Zeichen ist, wird „eoln” zu- 
rückgesetzt. 

Betätigt man die End-Of-Text-Taste Ctrl- 
C, wird ebenfalls ein Leerzeichen in C 
gebracht, während sowohl 

eoln (input) 

als auch 

eof (input) 

„true“ ausgeben. Der Wert 3 (ASCII ETX) 
wird niemals als Inhalt von C auftreten, 
womit Abfragen wie 

fC = chr (3) 

sinnlos erscheinen. Nach Eingabe von 
Ctrl-C ist der File „input“ geschlossen, 
womit jegliche weitere Eingabe unmöglich 
wird, was man durch das Statement 

if eof (input) then reset (input) 

wieder rückgängig machen kann. Wenn 
man dies nicht tut, überspringt das Pro- 
gramm jede weitere Eingabe von „input“. 
Erst kurz vor Erscheinen der Kommando- 
zeile wird die Ende-Anzeige des Files „in- 
put“ wieder auf „false“ gesetzt. 

Etwas anders verhält sich die Sache bei 
dem File „keyboard“. Für End-Of-Line gilt 
dasselbe wie für „input“. Im Gegensatz zu 
„Input“ kann aber der File „keyboard“ 
niemals geschlossen werden. Ein Close- 
Befehl ist wirkungslos; das gleiche gilt für 
das Einlesen des End-Of-File-Zeichens 
ETX. Die Funktion 

eof (keyboard) 

wird immer den Wert „false“ liefern. Statt 
dessen wird aber das eingelesene Zei- 
chen C nicht in ein Leerzeichen umge- 
wandelt, sondern es behält den ASCIl- 
Wert 3, womit die Abfrage 

re =cheid)., 

sinnvoll ist. 


5. File-Information-Block 


Wie wir gesehen haben, beträgt die Größe 
einer Filevariablen im Speicher bei Files 
ohne Typ 40 Words und bei anderen Files 
300 Words + x Words für die Fensterva- 
riable. 

Da ein Hexdump des Inhalts einer Fileva- 
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riablen nicht soviel aussagt wie eine Dar- 
stellung mit Hilfe einer korrekten 
Datenstruktur, seien hier alle Komponen- 
ten einer Filevariablen anhand der Struktur 
Fib = File-Information-Block 

aufgezeigt. Betrachten Sie dazu Listing 2: 
FibTest. Die Definitionen, die zum Direc- 
tory gehören, wurden schon im Peeker, 1/ 
1985 genauestens erklärt. Sie seien im 
Listing für Leser, die nicht über diese Aus- 
gabe verfügen, noch einmal aufgeführt. 
Der Verbund „Fib“ benötigt maximal 290 
Words. Die letzten 10 Words werden vom 
Compiler reserviert, falls die Definition von 
„Fib“ sich noch ändern sollte. Die einzel- 
nen Komponenten haben folgende Be- 
deutung: 

Fwindow enthält die Adresse der Fenster- 
variablen, die immer 300 Words größer ist 
als die Adresse der Filevariablen. Fwindow 
ist als Zeigervariable implementiert. Fwin- 
dow ? ist die Fenstervariable. 

Feof ist „true“, wenn der letzte Datensatz 
des Files gelesen worden oder ein Fehler 
beim Schreiben aufgetreten ist. Mit der 
vordefinierten Funktion EOF kann der Wert 
dieser Variablen abgefragt werden. 

Feoln ist „true“, wenn das End-Of-Line- 
Zeichen gelesen wurde, welches beim 
Apple-Pascal den ASCII-Wert 13 (CR) hat. 
Mit der vordefinierten Funktion EOLN kann 
der Wert dieser Variablen abgefragt wer- 
den, wenn es sich um einen Text- oder 
Interaktivfile handelt. 

Fstate kann drei Zustände einnehmen, 
welche Fiandw, Fneedchar oder Fgotchar 
lauten. Alle Files außer Interaktivfiles ha- 
ben den Status Fjandw. Bei diesem Status 
wird bei einem Reset-Befehl gleichzeitig 
ein erstes Get durchgeführt. Bei Interaktiv- 
files ist der anfängliche Status Fneedchar, 
weil noch ein Get durchgeführt werden 
muß, also ein Zeichen gebraucht wird. 
Nach einem Get ist der Status Fgotchar. 
Da die einzelnen Zeichen beim Einlesen 
einer Integer-Zahl über Get geholt wer- 
den, bewirkt ein nachfolgendes „read 
(C)“, wobei C eine Char-Variable ist, daß 
das Zeichen, mit welchem die Integer-Zahl 


abgeschlossen wurde, in C eingelesen 
wird. Das Programm bleibt bei diesem 
Read-Befehl nicht stehen, was völlig rich- 
tig ist, da das abschließende Zeichen noch 
nicht verarbeitet ist. Die Sequenz 

read (|); 

read (CO); 

liest eine Integer-Zahl ein. Die Variable C 
enthält danach ein Leerzeichen, wenn die 
Zahl mit der Leer-, der Return- oder der 
ETX-Taste abgeschlossen wurde. Wurde 
hingegen die Integer-Zahl mit einem 
Buchstaben wie z.B. „x“ abgeschlossen, 
so enthält C diesen Buchstaben. 

Frecsize gibt die Größe der Fenstervaria- 
blen in Bytes an. Für Textfiles und Interak- 
tivfiles gilt die Größe 1, nicht 2, was einem 
„packed file of char“ entsprechen würde. 
Typlose Files haben die Größe 0. 

Flock wird nur in Pascal 4.0, 4.1 usw. 
benutzt. (Es ist eine Semaphor-Variable, 
die benötigt wird, um Files vor gleichzeliti- 
gem Zugriff mehrerer Prozesse zu schüt- 
zen. Diese Variable darf in Pascal 1.1 oder 
1.2 nicht in die Definition von „Fib” aufge- 
nommen werden.) 

Fisopen gibt an, ob der File geöffnet ist 
oder nicht. Ist der File geöffnet, so existiert 
eine Variante mit weiteren Komponenten. 
Fisbilkd ist „true“, wenn sich der geöffnete 
File auf einer Diskette befindet und nicht 
etwa den Bildschirm oder den Drucker 
usw. ansteuert. 

Funit, die Unitnummer des Geräts, auf 
welchem sich der File befindet, läßt sich 
aus Tabelle 2 entnehmen. 

Fvid, der Name des Geräts, auf welchem 
sich der File befindet, läßt sich ebenfalls 
aus Tabelle 2 entnehmen. 

Freptent gibt an, wie oft die Fenstervaria- 
ble einen gültigen Wert enthält, bevor wie- 
der ein Get-Befehl durchgeführt werden 
soll. Im praktischen Fall heißt das, daß 
beim Einlesen eines DLE-Zeichens von 
einem Textfile der nachfolgende Wert ein- 
gelesen wird und dieser Wert, nachdem er 
um 32 vermindert wurde, als Anzahl der 
nun folgenden Leerzeichen interpretiert 
wird, sofern er größer als O und kleiner als 


Tabelle 2: Unitnummern (Funit) und 


Namen (Fvid) 


Nummer Name Bedeutung 


| rn 


CONSOLE: 
SYSTERM: 
GRAPHIC: 
Disk 
Disk 
PRINTER: 
REMIN: 
REMOUT: 
Disk 
Disk 
Disk 
Disk 


Drucker 


1 
2 
3 
4 
e) 
6 
8 
9 
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Tastatur und Bildschirm {Mit Eingabe-Echo) 
Bildschirm und Tastatur (Ohne Eingabe-Echo) 
Graphic Terminal wird nicht auf dem Apple benutzt 
Laufwerk 1 (Slot 6, Drive 1) 

Laufwerk 2 (Slot 6, Drive 2) 





Externe Eingabe (Terminal, Moden, etc.) 
Externe Ausgabe (Terminal, Modem, etc,) 
Laufwerk 5 (Slot 4, Drive 1} 
Laufwerk 6 (Slot 4, Drive 2) 
Laufwerk 3 (Slot 5, Drive |} 
Laufwerk 4 (Slot 5, Drive 2) 





2 ucsd A 


127 ist. Der gültige Wert ergibt Freptent. 
Frxtbik ist der nächste Block, der von Dis- 
kette gelesen werden muß. Er wird hier 
relativ zum Fileanfang angegeben. Er wird 
beim Öffnen auf O gesetzt, es sei denn, es 
handelt sich um einen Textfile (Suffix 
TEXT), der über eine Filevariable, die nicht 
typlos ist, eingelesen wird. In diesem Fall 
werden die beiden ersten Blöcke übergan- 
gen, hingegen beim Schreiben mit Nullen 
gefüllt. Fnxtiblk hat dann den Wert 2. 


Fmaxbik hat den Wert 0, wenn ein neuer 
File geöffnet wird. Sonst gibt die Variable 
die Länge des Files in Blöcken an. Wird 
diese Zahl beim Schreiben überschritten, 
so versucht das System, den File zu deh- 
nen, wenn auf der Diskette noch Platz 
dafür ist. 


Fmodified wird „true“, wenn ein File ver- 
ändert wurde, damit beim Schließen des 
Files dieser das aktuelle Datum zugewie- 
sen bekommt. 

Fheader enthält eine Kopie des Directory- 
Eintrags des geöffneten Files. 


Fsoftbuf ist „true“, wenn der File einen 
Puffer hat, der vom System benutzt wer- 
den darf, um die einzelnen Records des 
Files nach und nach von Diskette zu laden 
oder auf Diskette zu schreiben. Typiose 
Files haben keinen Puffer; er muß vom 
Programmierer zur Verfügung gestellt 
werden. Auch die vordefinierten Files „in- 
put“, „output“ und „keyboard” werden 
vom Pascalsystem ohne Puffer zur Verfü- 
gung gestellt, obwohl es Interaktivfiles 
sind, weil sie nur auf „ungeblockte” Gerä- 
te zugreifen (Bildschirm, Tastatur, usw.). 
Eine Sequenz wie 

close (output); 

rewrite (output, '#4:AUSGABE.TEXT’); 
writeln (output, ...); 

sollte in einem Programm vermieden wer- 
den, da sonst der Heap durcheinander- 
gebracht wird („input“, „output“ und 
„Keyboard“ liegen knapp unterhalb des 
Heaps). 

Fnxtbyte ist das nächste Byte, das im Pui- 
fer gelesen oder geschrieben werden 
muß. 


Fmaxbyte ist das letze Byte im letzten 
Block, das eine gültige Information besitzt. 
Fbufchngd wird „true“, wenn der Puffer 
durch einen Schreibbefehl geändert wur- 
de, was das System dazu veranlaßt, die- 
sen Puffer auf Diskette zu retten, wenn der 
File geschlossen wird oder der Puffer 
durch ein Get oder Put neu gelesen oder 
geschrieben wird. 

Fbuffer ist der Puffer, der Platz für einen 
Diskettenblock zur Verfügung stellt. Dies 
ist nötig, da immer nur ein bestimmter 
Block auf Diskette adressiert werden kann. 
Einzelne betimmte Bytes können nicht ge- 
lesen oder geschrieben werden. 
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Hinweis zur Sammeldisk 

Um nun die einzelnen Informationen eines 
File-Information-Blocks zu analysieren, 
konvertieren Sie die Dateien FILETEST- 
‚TEXT und FIBTEST.TEXT von der DOS- 
3.3-Peeker-Sammeldisk auf Ihre Pascal- 
Diskette mittels GETDOS, oder geben Sie 
Listing 1 als Programm FileTest und Li- 
sting 2 als Programm FibTest ein. Spel- 
chern Sie Listing 1 als 

FIEETEST-EEXT 

und Listing 2 als 

EIBTEST-IEXT: 

Lassen Sie beide Quelltexte compilieren 
und führen Sie zuerst FILETEST.CODE 
aus. Das Programm erzeugt die Files 
EERTEIEETTERNT, 

INTEILETIEXE 

DATAFILE.DATA und 

CODEFILE.CODE. 

Nun starten Sie FIBTEST.CODE, das die 
Files einliest und die Inhalte der File-Infor- 
mation-Blocks ausgibt. 


Finit 

Nachdem wir nun verstanden haben, wie 
die Files im Speicher aufgebaut sind, Kön- 
nen wir uns noch einmal der Prozedur Finit 
zuwenden und uns ansehen, welche 
Komponenten eines Files initialisiert wer- 
den. Für jeden File, der der Prozedur Finit 
übergebenen wird, werden folgende Wer- 
te übergeben: 


Fstate wird auf Fjandw gesetzt. 

Fisopen wird auf „false“ gesetzt. 

Feof und Feoln werden auf „true“ gesetzt. 
Fwindow wird auf die Adresse der Fen- 
stervariablen gesetzt (normalerweise An- 
fang der Filevariablen + 300 Words, bei 
typlosen Files „nil”). 


Handelt es sich um einen Interaktiv- oder 
Textfile, so wird das höherwertige Byte der 
Fenstervariablen, die eine Char-Variable 
ist, auf Null gesetzt, damit Vergleiche mit 
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der Fenstervariablen ordnungsgemäß 
funktionieren. Des weiteren wird Frecsize 
auf 1 und bei Interaktivfiles Fstate auf 
Fneedchar gesetzt (nach Reset muß Get 
folgen). 

Bei typlosen Files werden, wie schon er- 
wähnt, Fwindow auf „nil“ und Frecsize auf 
Null gesetzt. 

Bei allen anderen Files wird Frecsize auf 
2: Frecwords gesetzt, also auf die Anzahl 
der Bytes, die ein File-Element, wie z.B. 
die Fenstervariable, belegt. 

Wenn man den File-Information-Block 
kennt, kann man gezielt dessen Werte än- 
dern, um damit bestimmte Effekte zu er- 
zielen. Ein Ändern des Wertes Funit von 1 
auf 6 würde bewirken, daß die Ausgabe 
des Files auf einmal auf den Drucker um- 
gelenkt wird. Außerdem kann mit Leichtig- 
keit festgestellt werden, ob ein File auf 
Diskette oder als Gerät geöffnet wurde 
(Fisblkd). Im Zuge weiterer Maßnahmen 
kann dann an die Stelle eines langsamen 

writeln (F, Zeichenkette) 

bei geblockten Files ein schnelles 
unitwrite (Funit, Zeichenkette [1], 
(Zeichenkette)) 

treten. 


length 


Soviel zum internen Aufbau von Files, In 
Teil 7 soll dann auf den externen Aufbau 
eingegangen werden. 


Kurzhinweise 

Die Peeker-Sammeldisk enthält die Pro- 
gramme 

EIPERESTITEIT 

FIBTEST.TEXT 

Nähere Erläuterungen zur Konvertierung 
und Anwendung finden Sie im Aufsatz un- 
ter „Hinweise zur Sammeldisk“. 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres“ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmadiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
einsatzfähig auf Apple Ile und Ilc mit 
2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 


U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 
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Die schafft Ordnung! : 


Ihre Sammelkassette für einen ER » peeker «, 


Sie ist praktisch 
und von 
bleibendem Wert. 
Bewahren Sie 
Ihren » peeker « 
griffbereit 

darin auf. 

Der Einzelpreis 
einer Kassette 
beträgt DM 16,80 
(inkl. Mwst. und 
Versandkosten). 





Bestellen Sie bitte bei: 
Hüthig apsener « Leserservice : Postfach 10 2869 : 6900 en 1 






Die offiziellen Apple-Handbücher jetzt bei Addison-Wesley 
Applesoft Tutorial — Apple Computer, Inc. 

Das APPLESOFT TUTORIAL gibt Ihnen eine fundierte Einführung in die einfache und 
doch so ergiebige Programmiersprache Applesoft BASIC. Durch die Kombination von 

| praktischen Übungen, prägnanten Erklärungen und den Beispielen auf der Diskette 

| ist das Tutorial jedem Einsteiger DER Leitfaden für die ersten Versuche in BASIC. 

ISBN 0-201-17724-2 DM 89.50 










Applesoft BASIC Programmer’s Reference Manual 
Scot Kamins für Apple Computer, Inc. 

Ein Buch für alle eingeführten und fortgeschrittenen Applesoft Programmierer. Alle 
Aspekte für Applesoft BASIC werden ausführlich behandelt. Außerdem bietet es eine 
Einführung in Programmplanung und Design. 


ISBN 0-201-17722-6 DM 68.50 


BASIC Programming with ProDOS 

überarbeitete Ausgabe — Apple Computer, Inc. 

Dieses Buchpaket mit Diskette erklärt die ProDOS-Befehle und zeigt auf, wie mit Hilfe 
des Betriebssystems bessere BASIC-Programme geschrieben werden. Die Diskette 
enthält das komplette ProDOS-System, sowie Beispielprogramme, die bei Bedarf auch 
abgeändert werden können. 


ISBN 0-201-17721-8 DM 89.50 
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Listing 1: FileTest 


{$L PRINTER: } 


program FileTest; 


type Typ = record 


X : integer; 
Y : integer 
end; 
var Fl : text; 
F2 : interactive; 
F3 : file of Typ; 
F4 : file; 
F5S : file; 
I ı integer; 
A : packed array [0..511] of char; 


begin 
rewrite (Fl, 
writeln {FI, 


rewrite [F2, 
writeln {F2, 


rewrite {F3, 


with F3t do 
begin 
X := 513; 
Y := 1027 
end; 
put (F3); 


'TEXTFILE.TEXT'); 
'TextL!Y‘: 
close {Fl, lock); 


'INTFILE. TEXT’); 
'Interactive'); 
close {F2, lock); 


'DATAFILE.DATA'); 


close (F3, lock); 


rewrite [F4, 


for I :=0 toll do 


'CODEFILE.CODE'); 
reset (F65, 'FILETEST.CODE'); 


if blockread (F5, A, 1) <> blockwrite (FA, A, 1) 
then close (F4, normal); 
close (FA, lock); 


close (F6, normal) 


end. 


Listing 2: FibTest 


{$I-} 
{$R-} 


program FibTest (input, output); 


const Maxunit 
Maxdir 
Vidleng 
Tidleng 
Fidleng 
Fblksize 
Fbikmax 


type Daterec 


Unitnum 
Vid 
Dirrange 
Tid 

Fid 


Filekind 


Direntry 
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l 


je 
TE: 
I, 
15; 
23, 
52; 
511; 


packed record 
Month : O0..12; 
Day el 
Year : 0..100 

end; {Daterec} 


0..Maxunit; 
string [Vidleng]; 


0..Maxdir; 
string [Tidleng]; 
string [Fidleng]; 


(Untypedfile, Xdskfile, Codefile, Textfile, 
Infofilo, Datafile, Graffile, Fotofile, 
Securedir, Subsvol); 


packed record 
Dfirstblk : integer; 
Dlastblk : integer; 
case Dfkind : Filekind of 


Securedir, 

Untypedfile : (Filler_1 : 0..4095; 
Dvid : Vid; 
Deovblk : integer; 
Dnunfiles : Dirrange; 
Dloadtime : integer: 
Diastboot : Daterec); 

Xdskfile, 


Codefile, 


Textfile, 

Infofile, 

Datafile, 

Graflfile, 

Fotofile, 

Subsvol : (Filler_2 : 0.,2047; 
Dstatus : boolean; 
Dtid : Tid; | 
Dlastbyte : 1. .‚Fblksize; 
Daccess : Daterec} 


end; {Direntry} 











Dirp = tDirectory; 
Directory = array [Dirrange] of Direntry; 
Windowp = Window; 
Window = packed array [0..0] of char; 
Fibp = TFib; 
Fib = record 
Fwindow : Windowp; 
Feof, 
Feoln : boolean; 
Fstate : (Fjandw, Fneedchar, Fgotchar); 
Frecsize : integer; 
case Fisopen : boolean of 
true : (Fisblkd : boolean; 
Funit : Unitnum; 
Fvid Nıd: 
Freptcnt, 
Fnxtblk, 
Fmaxblk : integer; 
Fmodified : boolean; 
Fheader : Direntry; 
case Fsoftbuf : boolean of 
true : (Fnxtbyte, 
Fmaxbyte : integer; 
Fbufchngd : boolean; 
Fbuffer : packed 
array [O..Fblksize] 
of char)) 
end; {Fib} 
Typ = record 
X : integer; 
Y : integer 
end; {Typ} 
var Fl : text; 
F2 : interactive; 
F3 : file of Typ; 
F4 : file; 
Fileinfo = Fib; 
= : string; 
| — 
procedure writelnBool {B : boolean); 
begin {writelnBool} 
ifo B 
then write ('true') 
else write (['false'); 
writeln 
end; {writelnBool} 
m a 1} 
procedure writelnfstate (State : integer); 
begin {writelnfstate} 
write ('Fstate se), 
case State of 
0 : write ('Fjandw'); 
1 : write ('Fneedchar'); 
2 : write ('Fgotchar') 
end; {case} 
writeln 
end; {writelnFstate} 
) 


procedure writeFheader (Header : Direntry); 


(m 
procedure writelnKind (Kind : Filekind); 


begin {writelnKind} 
write ('"Filekind ea) 
case Kind of 
Untypedfile : write ('Untypedfile'); 
Xdskfile : write ('Xdskfile'); 
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Godefile : write 
Textfile : write 
Infofile : write 
Datafile : write 
Graffile ‚ write 
Fotofile ‚ write 
Securedir : write 
Subsvol : write 
end; {case} 
writeln 


end; {writelnKind} 


procedure writelnTheDate (Date : 


begin {writelnDate} 


with Date do writeln (Day, 


end; {writelnDate} 








procedure writelnDbir; 


begin {writelnDir} 
with Header do 
begin 
writeln 
writeln ('Dvid 
writeln {'Deovblk 
writeln ('Dnunfiles 
writeln {'Dloadtime 
write {'Dlastboot 





("Direstory: 


{'Codefile'); 
('Textfile'}; 
('Infofile'): 
('Datafile'); 
('Graffile'): 
{"Fotofile'); 
('Securedir'); 
{'Subsvol') 


m) 


Datereo): 


'—', Month, '-', Year) 


nr 
',. Dvid): 
', Deovblk); 
: *, Dnumfiles); 
', Dloadiime}; 
er 


writelnThebate (Dlastboot) 


end {with} 
end; {writelnDir} 


(mm 00223 


procedure writelnFile; 


begin {writelnFile} 
with Header do 
begin 


write ('Dstatus 


z Are 


writelnBool (Dstatus); 


writeln ('Dtid 
writeln ('Dlastbyte 
write ('Daccess 


writelnTheDate (Daccess} 


end {with} 
end; {writelnFile} 


'. Dtid}; 
', Dlastbyte); 
"hi 


m 


begin {writeFheader} 
with Header do 
begin 
writeln ('Dfirstblk 
writeln ('Dlastblk 
writelnkind (Dfkind); 
case Dfkind of 
Securedir, 
Untypedfile 
Xdskfile, 
Codefile, 
Textfile, 
Infofile, 
Datafile, 
Graffile, 
Fotofile, 
Subsvol 
end {case} 
end {with} 
end; {writeFheader} 


I -— 





procedure Lookfile {F : 
var I integer; 

C : char; 

Ready : boolean; 


begin {Lookfile)} 

with F do 

begin 
writeln ('Fwindow 
write ('Feof 
writelnBool (Feof); 
write ('Feoln 
writelnBool (Feoln); 
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', Dfirstblk); 
', Diastblk); 


: writelnDir; 


: writelnFile 


Fib); 


', ord (Pwilndow)); 


a 










writelnFstate (ord (Fstate)); 
writeln ('Frecsize ', Frecsize); 
write ('Fisopen nr 
writelnBool (Fisopen); 
if Fisopen then 
begin 
write ('Fisblka 
writelnBool ({Fisblkd); 
writeln ('Fvid ', Fvid); 
writeln {'Freptent ', Freptent); 
writeln {('Fnxtblk : !, Fnxtblk); 
writeln ('Foaxbik ', Fmaxblk); 
write ('Fmodified ı 
writelnBool (Fnodified}; 
writeln ('Fheader:'); 
writeFheader (Fheader]; 
write ('Fsoftbuf uk 
writelnBool (Fsoftbuf}; = 
if Fsoftbuf then 
begin 
writeln ('Fnxtbyte 
writeln ('Fmaxbyte 
write ("Fbufchnga 
writelnBool (Fbufchngd); 
writeln ('Fbuffer:'); 
I:=0; 
with Fheader do 
while (I <= Fblkmax) and not Ready do 
begin 
if I mod 16 = QO then writeln; 
C := Fbuffer [I]; 
Ready := (Dfkind = Textfile) and (C = chr (0)); 
if Dfkind = Textfile 
then write {C : 4) 
else write (ord [(C) 
I:1I+riı 
end: {while} 
writeln 
end {if} 
end; {if} 
writeln 
end {with} 
end; {Lookfile} 









NE 





); 









', Fnxtbyte); 
', Fmaxbyte); 
5 













4): 















{ = 


begin {FibTest} 
reset (Fl, 'TEXTFILE.TEXT'); 
moveleft {Fl, Fileinfo, size_of (Fileinfo)); 
writeln ('TEXTFILE.TEXT'): 
Lookfile (Fileinfo); 

close {Fl); 








en —— 













reset (F2, 'INTFILE.TEXT'): 
read (FR, S); 

moveleft (F2, Fileinfo, size_of (Fileinfo)); 
writeln ('INTFILE.TEXT'); 

Lookfile (Fileinfo); 

close {(F2)}; 













reset (F3, 'DATAFILE.DATA'); 
moveleft (F3, Fileinfo, size_of (Fileinfo)); 
writeln ('DATAFILE.DATA'); 

Lookfile (Fileinfo): 

close (F3}; 








reset (F4, 'CODEFILE.CODE'); 
moveleft (F4, Fileinfo, size_of (Fileinfo)): 
writeln ('CODEFILE.CODE'); 
Lookfile {Fileinfo}; 
close (F4) 
end {FibTest}. 







Telefonische Bestellungen? 


Da unsere Peeker-Diskeiten in offener Rechnung und nicht 
in dem für Sie teuren Nachnahme-Verfahren ausgeliefert 
werden, haben Sie bitte Verständnis dafür, daß wir nur 
noch schriftliche Bestellungen annehmen. 


Sie können dazu beispielsweise die in jedem Peeker ein- 
gehefteten Bestellkarten verwenden. 


Hüthig Software Service 
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Weitere Wordstar- 


Modifikationen 











Patches für Epson FX-80 mit DDT 


Die Beiträge von H. A. Rohrbacher zum 
Thema Wordstar und FX-80 (Peeker 7/85, 
S, 57 und 8/85, S. 45) zeigten auch dem 
unbedarften Wordstar-Anwender, wie er 
sein WS-Systen nach eigenen Vorstellun- 
gen patchen kann. Dabel wurde vorausge- 
setzt, daß der Anwender das entsprechen- 
de Programm INSTALL.COM besitzt. Wer 
nicht über INSTALL.COM verfügt, kann 
den Patch trotzdem durchführen. Benötigt 
wird dann das CP/M-Programm 
DDT.COM. Es ist aber auch für den IN- 
STALL-Besitzer sinnvoll, der sein System 
mit Einzel-Patches modifizieren will, da er 
sonst den gesamten Install-Vorgang im- 
mer wieder neu durchführen muß. 
Tabelle 1 zeigt die erweiterten Patches, 
die sich bewährt haben. (Apple-Anwen- 
der, die auf der 80-Zeichenkarte keinen 
zweiten Zeichensatz installiert haben, 
ignorieren TRMINI: 0292H bzw. seizen 
diesen Bereich auf Null.) 


Die Ctrl-Codes für die Druckersteuerung 
werden mit } Px aufgerufen (der Hochpfeil 
„]“ steht für Ctrl, so daß z.B. | C Ctrl-C 
entspricht). 


56 


von Dieter Conrad 


Einige Adressen im einzelnen 


- ? Tn ROLUP: erhält ein Suffix 1 für 
hochstellen „ein“ und O für tiefstellen 
„ein“. ? Tn und T T sind immer paarweise 
anzuwenden. 

- Mit DEFDSK: = 02/03 können alle 
„OVR“-Dateien auf das Laufwerk B: bzw. 
C: ausgelagert werden. Das Laufwerk A: 
verfügt danach über 64K (oder mehr) 
Speicherkapazität zusätzlich. Wordstar ruft 
dann automatisch das Laufwerk B: oder C: 
auf, wenn die Dateien auf dem Laufwerk 
A: nicht vorhanden sind. 

—- SCRLSZ: legt den maximalen horizonta- 
len Screen Scroll fest. 

- PSINIT: der Drucker wird in Grundstel- 
lung gebracht, der deutsche Zeichensatz 
angewählt und Doppeldruck initialisiert. 

— Die schon erfahrenen Wordstar-Anwen- 
der können mit den Adressen ITHELP: 


und NITHLF: den Bildschirm von den Hil- 


femeldungen befreien und so den gesam- 
ten Schirm zur Textverarbeitung nutzen. 
— Mit ITITOG: und INITWF: kann nach 
eigenen Bedürfnissen, nach der Initialisie- 
rung, auf Einfügen „ein“ und Blocksatz 
„ein“ verzichtet werden. 

—- NONDOGC: ist für System-Programmie- 
rer geeignet, die WS im N-Modus direkt 
mit einem Quellcode oder mit einer neuen 
Programm-Datei aufrufen wollen. 


Vorgehensweise beim Patchen 


Vor dem Patchen kopiert man auf eine 
neuformatierte Diskette zuerst das CP/M- 
Betriebssystem und dann eine WS.COM- 
Datei. Danach kann DDT.COM gestartet 
werden. 

Zwei-Drive-Besitzer legen hierzu die CP/ 
M-Master-Diskette mit FORMAT.COM, 
DDT.COM bzw. WS.COM in Laufwerk A: 


und eine unbenutzte Diskette in Laufwerk 
B:. Beim Wechsel von Master- und WS- 
Diskette muß diese ggf. durch TC ange- 
meldet werden. Die Befehle lauten wie 
folgt: 


FORMAT 

(Frage nach Laufwerk mit B: beantworten) 
COPY B:=A:/S 

PIP B:=A:W5.COM 

DDT B:WS.COM 


Wer nur ein Laufwerk besitzt, muß die 
entsprechenden Befehle benutzen und 
außerdem auch DDT.COM auf die neue 
Diskette übertragen: 


FORMAT 

(Frage nach Laufwerk mit A: beantworten) 
COPY A:=A:/S 

FILECOPY W5.COM 

FILECOPY DDT,COM 

DDT WS5.COM 


DDT meldet sich, wenn die Wordstar-Datel 
hochgeladen ist, mit dem nachfolgenden 
Eintrag: 


DDT VERS 2.2 
NEXT PC 
4280 0100 


Peeker 3/86 


Wird eine bereits gepatchte Wordstar-Ver- 
sion benutzt, kann die Adresse unter 
NEXT auch 4300 ausweisen. 


DDT gibt ein „-“ als Prompt-Zeichen aus. 
Der Patch wird dann wie folgt eingegeben 
(hier am Beispiele von TRMINI:, das auf 
Null gesetzt wird): 


-50292 
0292 
-0293 
-0294 
-0295 
-0296 
0297 


04 
14 
48 
1A 
33 


Der oben dargestellte Dialog zeigt die 
komplette Bildschirmausgabe. Der Befehl 
„S0292“ weist DDT an, Änderungen ab 
Adresse 0292H vorzunehmen. DDT gibt 
dann die Adresse und den darin enthalte- 
nen Wert aus. Die Änderung erfolgt nun 
durch Eingabe des neuen Wertes, der mit 
Return abgeschlossen wird. DDT gibt 
dann die darauffolgende Adresse aus. Um 
den Patch abzuschließen, antwortet man 
mit einem „.“ gefolgt von Return. Zum 
Überschreiben einer anderen Stelle gibt 
man einfach wieder „S<adr>" ein, wobei 
<adr> für die zu ändernde(n) Adresse(n) 
steht. Ansonsten wird DDT durch Betäti- 
gen von ? C verlassen. Der Speicherinhalt 
im RAM bleibt dabei erhalten! 

Nun wird die neu erstellte Diskette in das 
Laufwerk A: eingelegt und mit TC ange- 
meldet. Danach muß die neue und geän- 
derte WS.COM-RAM-Datei mit 


SAVE 66 WSP.COM 


auf die Diskette geschrieben werden (CP/ 
M zeigt unter STAT immer 128-Byfte- 
Blocks, während SAVE 256-Byte-Blocks 
verwendet). Nachdem die gepatchte 
Wordstar-Version ausgetestet ist, muß 
WS.COM gelöscht und WSP.COM in 
WS.COM umbenannt werden. Wordstar 
erwartet bei internen Aufrufen seinen ei- 
genen Dateinamen „WS.COM” auf dem 
angemeldeten Laufwerk. 


Auf der neuen Diskette dürfen die 
WS.OVR-Dateien natürlich nicht fehlen, es 
sei denn, die Dateien wurden mit 
DEFDSK: verlagert. 


Das Löschen und Umbenennen geschieht 
wie folgt: 


STAT WS,COM $R/W (Schreibschutz aufheben) 
ERA WS,COM (alte Datei löschen) 
REN WS.COM=WSP.COM (neue Datei umbenennen) 
STAT WS.,COM $R/O (Schreibschutz anlegen) 


Bei „SAVE nn XXX.xxx" (nn = Anzahl der 
256-Byte-Blocks, XXX.xxx = Dateiname) 
treten bei Unachtsamkeiten Fehlermel- 
dungen auf, die einfach umgangen werden 
können: 
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Tabelle 1 

TP Adresse Adr. # Inhalt (Hex) 
TRMINIT: 0292H 04 14 48 1A 33 
DEL1: O2CFH 0l 
DEL2: ORDOH Öl 
DEL3: ORDIH ol 
DEL4: DZD2ZH ol 
DELS: O2DS3H ol 
APLFLG: 0O2D'’7H 05 
DEFDSK: ORDCH 01/02/03 
SCRLSZ: O2DDH iy214 
ITHELP: 0360H 01/00/02 /03 
NITHLF: 0361H FF/00 
ITITOG: 0562H FF/00 
ITDSDR: 0363H FF/00 
INITPF: 0366H 08 
INITFF:+l DO5S67H AB 40 02 08 
INITPF:+5 036BH 00 00 00 08 
INITPF:+9 O36FH 03 18 00 08 
INITPF:+13 0373H 0A 50 00 08 
INTER +17 Usr7H 01 08 00 08 
INITPF:+24 037EH 08 
INITLM: OST EcH 00 
INITRM: 0380H 45 
INITWF:+1 0386H FF/O0 
INITWF:+4 0389H FF/0O0 
NONDOG: 0392H 00/FF 

tB BLDSTR: O591H 04 

TD DBLSTR: 0692H 02 

TA PALT: OSB5H 02 1B 0E 

IN PSTD:: O6BAH 01 14 

Tin ROLUP: OSBFH 02 1B 53 

Tr ROLDOW: O6C4H 02 1B 54 

1Q USR1l: O6CSH 02 IB 4D 

Aw USR2: 06CEH 02 ı1B 50 

TE USR3: O6D3H O3 70.01 

iR USR4: O6DBH 03 1B 70 00 

iD RIBBON: O6&SDDH 02 1B OF 

je RIBOFF: OGSE2ZH Ol 12 
PSINIT: O6E7H 08 1B 40 1B 
PSPINI: OSFSEH 03 1B 4007 





Patch-Tabelle für WS,COM VERS. 3.0 


————_— 


Schrifttest {”B 








ASP. COM 


cPM 4 





Bedeutung 


nn m m — mn cu 











Ctri-Z3 deutsche Zeichen 
Cursor-Blinkzeit an 
Cursor-Blinkzeit aus 
Ctrl-delay Help-Menue 
Ctrl-delay Copyright 
Ctrl-refresch Screen 
Apple-Flag = 05 

zDyR- Ava, 

Horizonal Screen Scroll 
Hilfestufe Bildschirm 
Hilfestufe Anzeige aus/ein 
Einfügen ein/aus 
Inhaltsverzeichnis ein/aus 
Zeilenabstand in 1/4®” 

72 Zeilen/Blatt 

Null Leerschritte/Kopf 
Drei Kopfzeilen frei 

Zehn Leerzeilen/Fuß 

Eine Leerzeile Seiten # 
Linker Rand = 8 Spalten 
Randbegrenzung links s 
68 Spalten/Zeile 

Blocksatz ein/aus | 
Trennhilfe ein/aus | 
Direktaufruf D/N-Mode 
Fettdruck Afach 
Doppeldruck 2fach 
Breitschrift ein 
Breitschrift aus 

tief (1l)/hoch (0) ein 
tief-/hochstellen aus 
Elite-Schrift ein 
Elite-Schrift aus 
Proportional ein 
Proportional aus 
Schmal-Schrift ein 
Schmal-Schrift aus 

52 02 1B 47 07 Drucker Init D 
Drucker Ende-Reset 
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Eau 2 


Ein Beispiel in Doppeldruck-Matrix 


Ein Test in Vierfach-Druck 


"Dr 


Frei tschrift 
Nun kommt %"To9> 
und dann «"Til> 
Ein Versuch mit der ELITE - Schrift 
Jetzt noch FROPORTIONAL-Schrift 
Hier ist jetzt noch Schnalschrift eingeschaltet. 


Durch den Fatch 
ist Einfach-Druck nicht moeglich 


1. „No Space“: Die Diskette ist voll oder 
wurde nicht angemeldet. 


Abhilfe: Warmstart mit TC durchführen 
oder eine Diskette mit ausreichend freien 
Sektoren einlegen und 1 C ausführen. Die 
CP/M-Befehle wie ERA und REN können, 
ohne die TPA (RAM-Daten-Bereich) zu 
zerstören, angewendet werden. 


2. „Bdos Err On A: File R/O“: Der 
Dateiname befindet sich schon auf der 
Diskette und ist schreibgeschützt. 





HOHES TERL.L. EIN 


TIEFSTELLEN 


he 


iB 


FSINIT: 


Abhilfe: Neuen Dateinamen wählen oder 
mit REN die Datei auf der Diskette umbe- 
nennen. „STAT XXX.xxx $R/W" darf nicht 
benutzt werden, da hierdurch der Spei- 
cherinhalt der TPA überschrieben wird. 


Es wurde hiermit aufgezeigt, daß Wordstar 
nach eigenem Ermessen in jeder Hinsicht 
entsprechend der Hauptanwendung in- 
stallierbar ist. Für weitere Hintergrundin- 
formationen wird auf die GP/M- und WS- 
Handbücher sowie auf Peeker 4/85, S. 59 
(CP/M für Einsteiger) und die bereits oben 
genannten Artikel verwiesen. 
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Meßwertverarbeitun 


von Volker Herrmann 


Dieses Programm wurde von mir entwik- 
kelt, als ich in der Uni Karlsruhe immer 
wieder mit Praktika konfrontiert wurde, die 
es mit sich brachten, daß ganze Meßwert- 
kolonnen ausgewertet werden mußten. 
Nicht selten gestaltete sich die Behand- 
lung dieser Meßreihen trotz programmier- 
barem Taschenrechner ausgesprochen 
umständlich. Ich brauchte ein Programm, 
das verschiedensten Aufgaben und Anfor- 
derungen gerecht werden konnte: 


1. Eingabe von Meßwertkolonnen 

2. Kurze Übersicht der Namen der Ko- 
Ionnen 

3. Auflisten der Werte (auch Ausdrucken) 

4. Mathematische Verknüpfung der Ko- 
Ionnen 

5. Grafische Auftragung 

6. Lineare Regression 

7, Abspeichern auf und Einlesen von Dis- 
Ketie 

8. Korrekturen 

9, Statistik 
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Das im folgenden beschriebene Pro- 
gramm MESSWERT erfüllt diese Anforde- 
rungen. Wegen des ungewöhnlichen Um- 
fangs und der spezifischen Aufgabenstel- 
lung wurde es jedoch nur auf die Peeker- 
Sammeldiskette aufgenommen. Daher be- 
schränkt sich der vorliegende Beitrag auf 
die Beschreibung der Optionen, ohne all- 
zusehr auf die Programminterna einzu- 
genen. 





2. Die Optinen im einzelnen 


2.1. Eingabe von Kolonnen 


Jede Kolonne wird durch ihre Nummer 
beschrieben. Darüber hinaus kann jeder 
Kolonne ein Name zugeordnet werden. 

Zur Werteeingabe werden die einzelnen 
Felder der Reihe nach abgefragt. Dabei 
sind alle Tasten zugelassen, die aber als 
„O" interpretiert werden, sollten sie sich 





Praktikumsauswertung mit dem Apple 





1. Programmstart 


Auf der Sammeldiskette befinden sich die 
Files MESSWERT.START, MESSWERT, 
MESSWERT.TITEL und MW.ZEICHEN- 
SATZ. Das Programm wird durch „RUN 
MESSWERT.START" aufgerufen. Die An- 
zahl und Länge der Meßwertkolonnen 
richtet sich nach dem zur Verfügung ste- 
henden Speicherplatz. Aus diesem Grund 
empfiehlt es sich, bei umfangreicheren 
Messungen das DOS in die LC zu schie- 
ben (siehe DOSMOVER, Peeker 2/85). 
Nach dem Start erfolgt zunächst die Auf- 
forderung, das Datum einzugeben. Dieses 
Datum wird bei allen folgenden Drucker- 
ausgaben mit ausgedruckt. Bei dem ver- 
wendeten Drucker handelt es sich um ei- 
nen Epson FX-80 mit grafikfähigem Inter- 
face. Für andere Drucker und Interfaces 
müssen die im Programm verwendeten 
Steuerzeichen entsprechend verändert 
werden. 

Nach dem Erscheinen des Titels gibt man 
die Anzahl der Werte der zu bearbeiten- 
den Kolonnen ein. Eine Längenänderung 
ist während oder nach der Bearbeitung 
nicht mehr möglich! Anschließend zeigt 
der Bildschirm das Hauptmenü, aus dem 
durch Tippen der entsprechenden Taste 
die einzelnen Optionen aufgerufen wer- 
den. In der Kopfzeile sind Anzahl und Län- 
ge der möglichen Kolonnen ausgewiesen. 
Eine positive Beantwortung der in den Op- 
tionen 2.T. auftretenden Fragen kann in 
den meisten Fällen mit Return erfolgen. 


von den Zifferntasten unterscheiden {um 
die „REENTER?“-Ausgabe des Rechners 
zu unterdrücken). 


2.2. Namenliste 


Hier erhält man eine Ausgabe der ersten 
zehn Zeichen aller eingegebenen Kolon- 
nennamen in der Reihenfolge ihrer Num- 
mern. 


2.3. Kolonnen-Listing 


Maximal lassen sich drei Kolonnen gleich- 
zeitig auflisten. Dieser Punkt kann durch 
Drücken jeder anderen Taste, außer Re- 
turn, vorzeitig verlassen werden. 

Wünscht man die Ausgabe über den Druk- 
ker, liegt die Grenze bei acht Kolonnen. 
Da Meßwerte immer einer gewissen Un- 
genauigkeit unterliegen, ist es meistens 
nicht sinnvoll, alle vom Computer berech- 
neten Stellen auszudrucken. Man kann 
nun von einer Rundungsroutine Gebrauch 
machen, indem die Kolonnennummer und 
die dazugehörige Anzahl der zu runden- 
den Stellen eingegeben werden. Dazu ein 
paar Beispiele, jeweils auf 4 Stellen ge- 
rundet: 

1347635 ergibt 1348000; 

1.347635E22 ergibt 1.348E22; 
1.347635E-19 ergibt 1.348E-19; 
0.00134763 ergibt 0.0013. 

Als Überschrift oder erklärender Text ist es 
schließlich noch möglich, vier Zeilen Text 
über die Tabelle zu stellen. 
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2.4. Kolonnenoperationen 


Nach Wahl dieser Nummer erscheint ein 
sieben Punkte umfassendes Menü. 


1. Zurück: Rücksprung zum Hauptmenü. 
2. Anleitung: Kurzanleitung zur Eingabe 
einer Befehlsfolge. 

3. Konstanten: Liste der vordefinierten 
Konstanten (z.B. P = Pi, E = Eulersche 
Zahl e). 

4. Steigung: Hier legt man zwei Kolonnen 
als Abszisse und Ordinate fest und erhält 
in einer dritten Kolonne die Steigung. 

5. Invertieren: In einer Kolonne wird die 
Reihenfolge der Werte umgekehrt. 

6. Ordnen: Für die Sortierroutine muß man 
ein klein wenig Geduld aufbringen. Hierbei 
werden Kolonne O und die letzte Kolonne 
als Werteablage benutzt und sollten nicht 
anderweitig verwendet werden. 

7. Andere Operationen: Unter diesem 
Punkt bietet sich die Möglichkeit, Koion- 
nen untereinander und mit Zahlen mittels 
mathematischer Operatoren und Funktio- 
nen zu verknüpfen. Diese Verknüpfungs- 
anweisung wird in Form einer Gleichung 
angegeben. Dabei müssen verschiedene 
Vorschriften beachtet werden: 





a) Kolonnennummern in „<“ und „> 
einbetten. 

b) Die Befehlsfolge beginnt mit „<n> =", 
wobei „n“ für die zu berechnende Kolon- 
ne steht. 

c) Zwischen allen Operatoren, Zahlen, ein- 
gebetteten Kolonnennummern und Funk- 
tion-Tokens steht ein Leerzeichen. 

d) Zahlen und Konstanten sind direkt da- 
vor mit einem „#" zu versehen. Das Vor- 
zeichen gehört nicht zur Zahl. Das „E“ 
des Exponenten und, falls positiv, der Ex- 
ponent selbst gehören zur Zahl. 

e) Die Befehlsfolge endet nicht mit einem 
Leerzeichen. 


Um dieses mächtige Werkzeug noch ein- 
mal zu veranschaulichen, noch einige Bei- 
spiele: 

<1>=#) 

J ist eine Laufvariable. Der Kolonne <1> 
werden also die Werte 1, 2, 3, ... zuge- 
ordnet. 

<2> = <I> 

Kolonne <2> erhält die Werte von Kolon- 
ne <1>. 

<3> = TAN(#P/<1>) f #4 
Kolonne <3> erhält die Funktionswerte 
der Funktion y = TAN (Pi/x) T 4, wobei 


Redakteur 


Für unsere Zeitschrift Peeker suchen wir einen Redakteur, der dudenfest und verständlich 


schreiben kann. 


Solide Programmierkenntnisse sind unbedingt erforderlich. 
Es erwartet Sie eine abwechslungsvolle Tätigkeit in einem großen Verlagshaus. 
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die x-Werte der Kolonne <i> eninom- 
men werden. 

<4>=RND (#1) x #E - #1.349E - #4 
Kolonne <4> wird mit Zufallswerten im 
Bereich [O, e - (1.349 x& 10 ? -4)] gefüllt. 
<5>=-#4/<3>+SOR(ABS(COS(#J))) 
Kolonne <5> erhält die Funtionswerte der 
Funktion y = -4/x + SOR (ABS (COS 
(n)}), wobei n von 1 bis zur Länge der 
Kolonne läuft. 

<6> = EXP (<1> - #2.22E3) 

Kolonne <6> erhält die Wertey=e ? (x 
-2.23*10 7 3) 


2.5. Grafische Auftragung 


Wieder werden zwei Kolonnen Abszisse 
und Ordinate zugewiesen. Legt man Wert 
auf im Verhältnis gleiche Punktabstände 
auf den Koordinatenachsen (z.B. beim 
Zeichnen eines Kreises), wählt man 
zweckmäßigerweise „Bildschirm propor- 
tional“. Wird danach eine beliebige Taste 
gedrückt, sieht man die hochauflösende 
Grafikseite 2 und kann das Zeichnen der 
Kurve beobachten, wobeix=0Oundy=0 
durch gestrichelte Linien wiedergegeben 
werden. ESC schaltet zwischen Text und 
Grafik hin und her. 


Ihre Bewerbung mit den üblichen Unterlagen richten Sie bitte an: 
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Mit „D“ schaltet man zunächst auf Text 
um. Anschließend ist es möglich, die Gra- 
fik für den Druck zu beschriften. Dafür 
lassen sich sämtliche Zeichen verwenden 
(wegen INALL, Peeker 4/85, S. 70). Sollte 
die Beschriftung falsch sein, wird die Gra- 
fik gelöscht, und die Prozedur beginnt wie- 
der mit dem Drücken von „D“. Der eigent- 
liche Ausdruck (siehe Abb. 1) beginnt 
nach Beantwortung der Frage nach der 
Druckgröße. Wird hier weder „1” noch 
„2“ getippt, findet auch kein Ausdrucken 
statt und es kann weiter beschriftet 
werden. 


2.6. Lineare Regression 


Unter diesem Punkt ist es erstmals von 
größerem Interesse, den Bildschirm aus- 
zudrucken (siehe Abb. 2). Hat man für 
zwei Kolonnen die Regression durchge- 
führt, drückt man „P“ und erhält dann den 
Ausdruck. Diese Möglichkeit der Druck- 
ausgabe bietet sich an vielen Stellen des 
Programms. 

Um „Ausreißer“ abzufangen, können be- 
liebige Wertepaare unberücksichtigt blei- 
ben. Näheres zur Mathematik der linearen 
Regression entnehme man den entspre- 
chenden Büchern. 


2.7. Diskettenoperationen 


Speichern: Gefragt wird nach der Anzahl 
der Kolonnen ab Nummer 1, die man spei- 
chern möchte, und nach dem Namen, den 
diese Tabelle erhalten soll. Die Textfiles 
erhalten immer das Präfix „TABELLE.“ 
und werden gesperrt (LOCK). 

Laden: Bereits im Speicher stehende Ta- 
bellen gehen verloren, da vor dem Laden 
der CLEAR-Befehl ausgeführt wird. Tabel- 
len lassen sich also nicht mit anderen mi- 
schen. 


2.8. Korrekturen 


Es erscheint folgendes kurze Menü: 


1. Zurück: Rücksprung zum Hauptmenü. 
2. Austausch von Kolonnen: Zwei Kolon- 
nen können in ihrer Reihenfolge (siehe 
Namenliste) gegeneinander ausgetauscht 
werden. 

3, Einzelwertkorrektur: Falsch eingegebe- 
ne Werte lassen sich unter Angabe ihrer 
Position in der Kolonne verbessern. Es 
werden maximal 3 Reihen zu je 16 Werten 
aufgelistet. 

A. Kolonnennamen ändern: Als Hilfe wird 
der alte Name mitangezeigt. 


2.9. Statistik 


Hier gilt im wesentlichen das gleiche wie 
bei der linearen Regression, nur daß die 
Statistik allein für eine Kolonne durchge- 
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Abb. 1: Grafische Auftragung zweier 
Kolonnen 


LINEARE REGRESSION 07.07.1995 


ABSZISSE: EOLDNNEN-NR, 1 
ORDINATE: KOLONNEN-NR. Er 
STEIGUNG... ...»==n20r..21]. 00305047 
Y-ACHSENABSCHNITT..... -:.447282196 


BTANDYURDAGFE TICHLING: 
DER STEIGUNG..... urn a2. I7885819E-03 


STANDARD ICHUNG DES: 
Y=-NCHSENARSCHMITTA: 22. 1. 08er 


KORRELATIONSKOEFFIZIENT: . 799797578 


Abb. 2: Protokoll zur linearen Regression 


STATISTEE 07.07.1905 


FKOLUNMNEN-NR. 8 FuR STATISTIK 


MITTELWERT. .-zasauc0u :4.05180754 
VARIANZ. sau un un aan  . 00098503891 
STANDARDÄBWE ICHUNG, „:. 2978091243 


FUER F = 68.53 % 151: 

MITTLERER FEHLER 

DES MITTELWERTS.....:.0430257548B 
PROZENTUALER 

FEHLER.» . 2.2.2200 2,,31,06199081 4 


Abb. 3: Die Ausgabe der statistischen 
Auswertung 


führt werden kann. „Für P = 68.3%" be- 
deutet; für eine Wahrscheinlichkeit von 
68,3% (siehe Abb. 3). 


2.10. Werte löschen - Neue Eingabe 


Wählt man aus dem Hauptmenü diese Op- 
tion, wird das Programm nach nochmaliger 
Abfrage, die mit „J“ zu bestätigen ist, neu 
gestartet. 


2.11. Programm verlassen 


Mit „E“ aus dem Hauptmenü verläßt man 
das Programm und befindet sich im Ap- 
plesoft-BASIC. Ein Drücken der Reset- 
Taste bewirkt, daß der Rechner einen Kalt- 
start durchführt, da das DOS gepatcht 
wurde (es werden nur noch gesperrte 
Dateien beim Catalog ausgegeben). 


3. Fehlerbehandlung 


Auftretende Fehler werden mit einer spe- 
ziellen Routine abgefangen. Eine Über- 
sicht zeigt, welcher Fehler in welcher Zeile 
auftrat und wieviel freier Speicherplatz 
noch zur Verfügung steht. Mit jeder belie- 
bigen Taste (Ausdruck mit „P”) gelangt 
man wieder ins Hauptmenü. 


Abschließend noch ein kurzer Hinweis zur 
Speicheraufteilung: Das Programm belegt 
den im allgemeinen dafür vorgesehenen 
Bereich ab $0800 bis $3CDC. Unter der 
HGR2 liegt die Shape-Table ($3CE6- 
$3FFA) zur Beschriftung der Grafik (aus 
Roy E. Myers — Mikrocomputer Grafik, S. 
76 ff.). Die HGR2 wird zur grafischen Auf- 
tragung benutzt. LOMEM: wurde auf 
24580 ($6004) gesetzt, damit Grafik und 
Variablen nicht kollidieren. 


Kurzhinweise 


1. Zweck: 

Programm zur Erfassung und Auswertung 
von Meßwertkolonnen 

2. Konfiguration: 

II+, Ile oder IIc; 

Ggf. Epson-Drucker FX-80 mit Grafik-In- 
terface; 

DOS 3.3, ggf. in LC geschoben 

Sales!: 

RUN MESSWERT.START 

4. sammeldisk: 

MESSWERT.START 
(Applesoft-Startprogramm) 

MESSWERT 

(Applesoft-Hauptprogramm) 

MESSWERT. TITEL 

(Titel-Bidschirm als Binärdatei) 
MW.ZEICHENSATZ 

(Shape-Tabelle) 
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High Fidelity Adaptor 


getestet von Thomas Bühner 


Wenn der Lautsprecher des Apple 
nur bei Spielen zum Einsatz 
kommt, wird man mit seiner Klang- 
qualität zufrieden sein. Hat man 
sich jedoch ein Programm gekauft, 
das Musik macht oder mit dessen 
Hife man selbst komponieren 


muß man darauf achten, daß man 
den Hifi Adaptor an der richtigen 
Stelle anbringt. 


Wenn die Schraube gut angezo- 
gen ist, löst man den kleinen Stek- 
ker, der die Hauptplatine des Apple 





kann, spielt man bald mit dem Ge- 
danken, sich einen Synthesizer 
wie das Mockingboard anzuschaf- 
fen. Diese Erweiterungskarten 
können meist an die Stereo-Anla- 
ge angeschlossen werden und er- 
zeugen so einen Klang, der dem 
des eingebauten Lautsprechers 
weit überlegen ist. Statt viel Geld 
für einen Synthesizer auszugeben, 
kann man mit dem „Happ Hifi 
Adaptor“ den Apple direkt an ei- 
nen Verstärker anschließen. 


Montage 


Um den Hifi Adaptor im Apple Il+ 
oder Ile anbringen zu können, muß 
man das Gehäuse des Computers 
entfernen. Mit einer Schraube be- 
festigt man den Adaptor an einem 
der Ventilation-Schlitze, so daß 
von außen nur der Schraubenkopf 
und ein kleiner stählerner Kipp- 
schalter zu sehen sind. Da beim 
Apple II+ und Ile der Lautsprecher 
unterschiedlich plaziert ist und die 
Adaptor-Kabel recht kurz sind, 


Aus postalischen 
Gründen dürfen 
wir bei Produkt- 
berichten keine 
Firmenanschriften 
mitteilen. 


Peeker-Redaktion 
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mit dem Lautsprecher verbindet, 
und steckt ihn in die entsprechen- 
de Buchse des Adaptors. Dann 
verbindet man Hauptplatine und 
Adaptor und schraubt das Gehäu- 
se des Computers wieder zu. Das 
einzige Werkzeug, das während 
der Montage gebraucht wird, ist ein 
Schraubenzieher. 


Anschluß 


Man verbindet nun die Cinch- 
Buchse des Hifi Adaptors mit dem 
Auxiliary-Eingang des Verstärkers 
oder Receivers der Stereo-Anlage. 
Wenn man jetzt den Apple eine 
Melodie spielen läßt, kann an ei- 
nem Rändelrädchen des Adaptors 
die Lautstärke eingestellt werden, 
die zu den anderen angeschlosse- 
nen Geräten, wie Plattenspieler 
und Radio, paßt. Legt man den 
Kippschalter des Adaptors um, 
verstummt die Stereo-Anlage und 
der Apple-Lautsprecher nimmt sei- 
ne Tätigkeit wieder auf. 


Klangqualität 


Man bemerkt, daß die Töne we- 
sentlich klarer sind, wenn sie durch 
die Lautsprecher der Stereo-Anla- 
ge erklingen. Unreinheiten, die 
durch das musikerzeugende Pro- 
gramm hervorgerufen werden, tre- 
ten aber auch deutlicher hervor. 
Bei dem Programm „Electric Du- 
et“ etwa, das zweistimmig spielen 
kann, indem ein Trägerton von 
10.000 Hertz moduliert wird, ist 
dieser Trägerton jetzt störend hör- 
bar. Das „Music Construction Set“ 
erzeugt jedoch einwandfreie Ton- 
folgen. 
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Ein-Blick 


Name: 
Einsatz: 


Gesamtwertung: 
Dokumentation: 
Zweckdienlichkeit: 
Klangqualität: 

Optischer Eindruck: 
Verarbeitung: 

Allgemeine Bedienbarkeit: 
Preis/Leistung-Verhältnis: 
Preis: 

Hersteller: 


(Die beste Bewertung entspricht 5 Sternen) 


Happ Hifi Adaptor 
Anschluß des Apple II+ oder 
IIe an einen Verstärker 
KERK 

*** (1 Seite) 

Kr 

*rr% 

KrrrR 

Kr 

KERK 

Kr 

$ 25,- 

Happ Electronics, Inc., 
Oshkosh, USA 


DIE NEUE DIMENSION 


Das modulare 16/32-Bit Computer-System GEPARD 
e CPU MC 68000, 10 M Hz - CPU MC 68020, 16 M Hz 


e DRAM ab 512 K Byte 


@ Über 30 versch. Steckkarten im Europaformat (100 x 160 mm) 
e Modula-2 Compiler 


e Betriebssystem men 
e System Editor und 
e CP/M°-68K 


„nösend® 


rliefet bar“ 


ee 


e C-Compiler 
e „Einsteigersysteme“ = 
Apple II und Commodore ab DM 2.598,- 


Informationsmaterial kostenlos: Tel.: 0441/74084 


computer 


GmbH + Co.KG, Westerstr. 10-12, 2900 Oldenburg 
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Neue Preise Z£ 3 


IMB- 7___NeuePreisers W COMPATIBLE COMPUTER + ZUBEHÖR 

Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 

Mainboard XT-640 K (on Bord) f. 16 Bit + 8 Stots Leerkarte 

Disk Controller leer (f. 2x360 KB-Drives) 

Disk Controller leer (f. 4 x 360KB-Drives) 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 

Color RGB + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

512K-RAM Leerkarte 

Multifunktions Leerkarte (Printer, Ser, Game Uhr gepuffert) 49 
Disk-Muliti /O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 

Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 

384 K-Multifunktions Leerkarte, (RS 232, par. Printer Int., 

Game/Joystick Port, Real/time Clock/Kalender gepuffert) 
Prototype/Lochraster Leerkarte, durchkontaktiert 

Mainboard XT-256 f. 16 bit CPU, OK (bis 256K-on board, oder 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 315,-— 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 327, 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. 

Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 

Disk-Controller gepr. (f. 2x360 KB Drives) (Extra Kabel = 39,--) 

Disk Controller gepr. (f. 4 x 360 KB-Drives)(Extra Kabel = 39,-—-) 

LS leute Teccgetztolgiiie 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr. 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel =49,-) 





512K-RAM-Karte gepr. (OKB) 129, 
384K-Multifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw. 325,- 
Multifunktionskarte (Par. + Ser. + Uhr gepuffert) gepr. 289,-- 
Disk Multi I/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) Sr 
Profi-Funktionstastatur ASCII + 15er Block ab 215,--/dt. ab 245,- 
135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 219,--/279,-— 
360KB-Diskdrive Slimline (Track Access Time <2 m SS) 319, 
Joystick f. IBM + Compatible 
Maus incl. Software f. IBM + Compatible 

KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 
LIE 640, 16 bit-Rechner (incl. Boot-Eprom) 256K-Ram i De 
IBM-look-like Met.-Gehäuse +Profi-Fkt. Tast.+135 W-N pr. 999,— 
XT-640,w.0.+Contr.+360KBDrive+Color RGB+Vid. San Karte }; e17, -- 
BEL RRTT-Telele EIER OZo]le] Alla Wlelatefeisigelutzhnt:Tec:) 
XT-640, w.o. jedoch mit Monochrome-Graphic-Printer-Karte 
Aufpreis für XT-640 M-board mit 640 K vollbestückt+gepr. 


PC 10-Commocdore 256 K+2 Laufwerke + Monitor + dt. Tast. 
640 K-Speichererweiterungs-Set für PC 10 
Commodore PC 128 

APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 
Motherboard Il 48K leer, durchkont. mit Lötstopplack 
Motherboard Il 64 K+Z 80 CPU, leer 

M-board Il 48K, gesockelt, vollbest. + gepr. 

Motherboard Il 64K gesockelt, vollbest.+gepr. 

M-board Il 64K + Z80 CPU, gesockelt, v. best. + gepr. 
M-board Ile 64K vollbestückt + gepr. 

APOLLO Il Kunststoff- gehauen 

APOLLO Il Gehäuse incl. Funkt.-T: 

Superstarkes Netzteil — Kurzschlußfest 5A=115,--/7A= 
Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. v24, 80Z/24Z-Karte, PAL-Karte je 
TEE lc JSRTEge)EitlstcKeltigeisKelsielsiteig: 

EL STHIL U Ele leccHelzjolgtiie 

APPLE orig. 16K-Language Karte gepr. 

Z-80 CPU-Karte geprüft 

Controller DOS 3.3-Karte geprüft 

Auto-Controller DOS 3.2/3.3-Karte gepr. 

Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 
Parallel-Drucker-Karte geprüft 

Par.-Drucker-Grappler comp. Leerplatine 

Par.-Drucker Karte-Grappler comp. geprüft (Extra Kabel=45,-—-) 
8bit par. Int. + 64K-Buffer + Kabel gepr. (Grappler comp.) 
Seriell-Interface-Karte V24 geprüft 

Super-Seriell Leerkarte 

Super-Seriell-Interface Karte gepr. 
80-Zeichen/24-Zeilen-Karte geprüft 

802/24Z-Karte + Softswitch-Schalter Leerplatine 
802/24Z-Karte + Softswitch-Schalter, gest. Scharf geprüft 
802/24Z-Softwitch Karte gepr. für Ile 
802/24Z+64K-Ram+Softsw. Leerkarte f. Ile 
802/24Z-+64K-Ram+Softsw.-Karte best.+gepr. f. Ile 
IEEE-488 Int. Karte gepr. (Extra Kabel=45,-—-) 
PAL-Modulator/Color-Karte geprüft 

RGB-Color Karte gepr. 

128K-Speicher-Leerkarte 

128K-Speicher-Leerkarte + Software + Manual 
128K-Speicher-Karte + Software geprüft+Manual 
256K-Speicher Leerkarte 

256K-Speicher-Karte + Software geprüft+Manual 
WEITERHIN TG 

EPROM-Burner (2716/32/64) geprüft 

6522-VIA Karte geprüft 

Clock Karte geprüft 

Speech Karte geprüft 

VICE TeCcHelzTolgtlis 

[.\07707.0:1:110,8:1sc-Yel10)g 

Modem Euronorm-Karte gepr. + Software + Man. 
UHF/TV-Modulator universell 

Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl. 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. 
APOLLO//(48K) + Disk II F + Contr. + 12”-Monito 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur Vonbest: + gepr. 
APOLLO//A (48K) + Disk II F + Contr. + 12”-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 
15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 835,-- 





APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 1.179,-- 
Apollo II ASFK (48K) w.o.+2xDisk II-F+Contr. +12” Mon. 1.787,-- 
Aufpreis f.o. Systeme von 48K zu 64K 55,-- 
Aufpreis von 48K zu 64K+Z80 CPU 89,-- 
Apollo Ile (64K) vollbest. und geprüft 725,-- 
Apollo Ile (128K) +802/24Z-Karte geprüft 815,-- 
Applle Ile (64K) +15er-Tastatur vollbestückt 819,-- 
Apollo Ile ASKF (64 K) vollbestückt und geprüft ab 876,-- 


Apollo Ile (64K) +Disk II F+12” Monitor 


APPLE Ile 128K+802/24Z Karte+Softw. 

Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 
Disk//(Siemens) im Geh. + Kabel 

Disk//F (1/2 Höhe) im Gehäuse +Contr.+Kabel 

Disk//F (1/2 Höhe) im Gehäuse 

Disk//F-HS (High Speed 1/2 Höhe) im Gehäuse +Contr.+Kabel 379,- 
Disk//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ac.<2mS) 318,—— 
Disk//F-HS-80 Track im Gehäuse + Kabel 389,- 
Disk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Softw 

Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3- Contr. 


APPLESOFT + Turorial + Reference Manual engl. 





APPLE-DOS 3.3 Manual engl. 25,-- 
APPLE-DOS 3.3 Hb. dt. 45,-- 
APPLE-Pascal Reference + Operating Manual engl. 48,-- 
APPLE-Pascal Reference Hb. dt. 49,-- 
APPLE-Pascal Language Hb. dt. 39,-- 
APPLE-Fortran Manual engl. 69,-- 





CP/M-Softcard Vol. | + Il, Manual engl. 
APPLE Il-+Ile-Anwenderhandbuch deutsch (te-wi) 
Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 
VERWCHND EHUHEFL: 9] 
Macintosh System (512K) 
Macintosh Umrüstung von 128K auf 512K 
Epson LX 80, 8 Bit/par. (Extra Traktor = 69,-—-) 
EPSON FX 85F/T +, 8bit/parallel 160 zn ben + IBM Komp. 
EPSON FX 105+, 8bit/parallel 15” — 

Traktoraufsatz für FX 80 + a 
APPLE/EPSON-Drucker Graphic- ee + Kabel 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 











BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 

STAR SG10, NLQ- + IBM-Zeichensatz, 8bit/par. 

Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mit Video - 
TTL (IBM Komp.) oder Coloreingang. — Bitte Preisliste anfordern! — 
Disketten in Box + Ber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 
514"Verstärkt BASF FUJ DATA N 78 








SCOTCH MAGNE- 
le 

1X,SS/SD 3,49/ 3,29 
1D, SS/DD 3,89 349 3,78/ 3,58 4,27/ 3,97 2,56/2,46 2,25/2,15 
2D, DS/DD 4.59 4.98/ 4,78 5,87/ 5,47 3,26/3,06 2,75/2,55 
1D/96TPi 2 28 4,39 4, 
2D/96TPi ERTIAEN RER 
2HD/1.2MB 12,49/11,59 
1X, Hard 4,29/ 4,19 


12,87/12,57 


Das 
SIate| 


4,49/ 4,39 6,68/ 6 


9,88/ 9,58 10,17/ 9,77 
4,49/ 4,39 6,68/ 6,48 


gr 
1X, SS/SD 6,97/ 6,67 
1D, SS/DD 
Y1»#2127/0)D} 
1X, Hard 
3" 
Einseitig 7,29/ 6,89 7,38/ 208 7,67/ 7,17 
Zweiseitig 11,59/11, B 9,98/ 9 


3M-Scotch 5'/” Flüssig- Ben (2 DK: & eng 
51/4” Disketten-Archivbox für 10 Disks (1 St./10 St.) 
51/4" Disk-Karteikasten Kunststoff (ca. 80 a 
51/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 
51/4" Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 
[ot-yAlBKol-7eio] JG, 7 .\1 Sc: YE-7-71; 
Bei Vorauszahlung frei Empfangsstation ech in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt. 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Mi u. EN 10-14 h, la Sa v. 10-18 h. 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten. 
ES TR ARENTCHGHVLHEICHENEIESEIRTUEREELEIICHRKEIIE ICH [RT gel] 
unsere eigene Service-Werkstatt. 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 







48,95 
4,75/43,50 
26,50 






















Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 
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Das über einschlägige Importeure 
auch in Deutschland erhältliche 
Mockingboard C ist ein Interface 
für den Apple I/ll+/lle, das zur 
Erzeugung von Sprache und Tö- 
nen/Geräuschen dient. Die Hand- 
habung der Karte ist durch die mit- 
gelieferte Software recht einfach; 
die mit dem Mockingboard erstellte 
Sprache bzw. Sounds können pro- 
blemlos in eigene Applesoft-Pro- 
gramme eingebunden werden. 


1. Allgemeines 


1.1. Systemanforderungen 


Apple Il/II+/lle, 48K RAM, 1 Disk- 
Drive (5,25 Zoll), 2 Lautsprecher (8 
Ohm) oder ein externer Verstärker 
mit Lautsprechern. 


1.2. Lieferumfang 


— Interface mit 2 Sound- und 2 
Speech-Chips, 2 Verstärker mit je- 
weils 0,5 Watt Leistung und ge- 
trennter Lautstärkeregelung; 

— ausführliches Manual (75 Seiten) 
in englischer Sprache; 

— Kabel mit RCA-Steckern zum 
Anschluß der Lautsprecher oder 
des Verstärkers; 

— eine doppelseitig beschriebene 
Diskette mit Demo-Software, Hilfs- 
programmen zur Sound- und 
Spracherstellung sowie einem „In- 
vader-Spiel“ mit eindrucksvollen 
Soundeffekten. 


1.3. Anschluß 


Das Mockingboard (MB) kann in 
Slot 1 bis 7 betrieben werden. 
Software, die die Sound- und 
Sprachfähigkeiten des MB unier- 
stützt, nimmt Slot 4 als Standard- 
platz an. Für den Anschluß an 
Lautsprecher oder Verstärker muß 
man sich evil. noch einen entspre- 
chenden Adapter (z.B. RCA -> 
DIN) besorgen. 


2. Betrieb 
2.1. Sprache 


Die Basis der Spracherzeugung 
bilden (bei Mensch und Computer) 
sogenannte „Phone“. Dies sind 
die kleinsten voneinander zu un- 
terscheidenden Laute, deren Art 
und Anzahl von Sprache zu Spra- 
che variiert. Die Speech-Chips des 
MB sind in der Lage, 64 verschie- 
dene Phone der amerikanischen 
Sprache zu erzeugen, aus denen 
dann jeweils die Aussprache eines 
bestimmten Wortes zusammenge- 
setzt wird. Da jedes Phon vom MB 
in vier verschiedenen Längen er- 
zeugt werden kann, stehen eigent- 
lich 256 unterschiedliche Laute 
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zum Sprechen zur Verfügung. 
(Anm. d, Red.: Strenggenommen 
gibt es nur 57 Phone, von denen 
nicht alle in jeder Sprache vorkom- 
men. Da es mit einfachen techni- 
schen Mitteln nicht möglich ist, alle 
natürlichen Phone zu erzeugen, 
geht man bei der synthetischen 
Spracherzeugung dazu über, eini- 
ge weitere Laute aufzunehmen, 
um der menschlichen Sprache ge- 
recht zu werden. Dadurch unier- 
scheidet sich auch die phonetische 
Lautschrift bei einem Sprachpro- 
zessor von dem durch die API [As- 
sociation Phonetique Internationa- 
le] erstellten phonetischen Alpha- 
bet. Auch führt die Länge [Quanti- 
tät] im engeren Sinn nicht zur Un- 
terscheidung von Phonen, son- 
dern ist wie die Stärke [Intensität] 
und Tonhöne [Intonation] nur Attri- 
but eines Lautes.) 


Die Aussprache eines bestimmten 
Buchstabens kann in verschiede- 
nen Worten durchaus unterschied- 
lich sein. Beispielsweise wird das 
„e" in „evil“ vollkommen anders 
ausgesprochen als in „yes"” oder 
„siient“. Vor der eigentlichen 
Spracherzeugung im Speech-Chip 
muß der Computer daher durch die 
mitgelieferten Hilfsprogramme die 
richtigen Phone für den jeweiligen 
Buchstaben auswählen. Diese 
Auswahl richtet sich nach den in 
einer Rule-Table über Software 
festgelegten Ausspracheregeln 
(die mitgelieferte Rule-Table ent- 
hält ca. 870 verschiedene, nach 
Buchstaben geordnete Regeln). 
Wem die Aussprache bestimmter 
Worte nach dieser Standard-Table 
nicht zusagt, kann die vorhande- 
nen Regeln problemlos verändern 
oder neue Regeln hinzufügen. Im 
Editiermodus werden dann per Ta- 
statur Worte oder Sätze (bis max. 
239 Zeichen) eingegeben, die so- 
fort nach den momentan im Spei- 


cher befindlichen Regeln in Spra- 
che umgesetzt werden. Es können 
beliebig viele verschiedene Rule- 
Tables erzeugt und zur Benutzung 
In verschiedenen eigenen Pro- 
grammen auf Disketie gespeichert 
werden. Trotz dieser Editiermög- 
lichkeiten bleibt der Aussprache 
jedoch fast immer ein amerikani- 
scher Akzent erhalten, denn die 64 
Phone entstammen — wie bereits 
erwähnt — der amerikanischen 
Sprache und können einfach nicht 
alle natürlichen Laute des Deut- 
schen verireten. 


Den letzten Schliff bekommt die 
Sprache dann noch durch das Hin- 
zufügen einer Satzmelodie, d.h. 
durch Heben und Senken der 
Stimme am Satzende, Pausen vor 
einem Interpunktionszeichen oder 
die Betonung einzelner Silben. All 
diese Effekte sind durch einfaches 
Einfügen von Markern in den zu 
sprechenden Text zu steuern bzw. 
werden vom MB automatisch be- 
rücksichtigt. 

Schließlich ist es noch möglich, 
den Stimmtypus und die Sprech- 
weise des MB über vier Parameter 
zu verändern: 


— 12 verschiedene Lautstärken, 

— 14 verschiedene Sprechge- 
schwindigkeiten, 

— 26 verschiedene Stimmlagen 
und 

— 254 verschiedene „Frequenz- 
filter" 


ermöglichen z.B. die Simulation 
der Sprache eines beleibten 
Opernsängers, eines Kleinkindes 
oder gar eines Marsmenschen. 
Trotz der Vielfalt der Möglichkeiten 
wird man viele Kombinationen der 
Parameter kaum verwenden, da 
die resultierenden Stimmen nicht 
mehr verständlich klingen. In ei- 
nem Testmodus können diese Pa- 
rameter so lange geändert werden, 


bis einem die Aussprache des ge- 
wünschten Textes zusagt. Dieser 
Text (max. 239 Zeichen) kann 
dann mit allen vorgenommenen 
Einstellungen auf Diskette gespei- 
chert und so später in eigene Ap- 
plesoft-Programme eingebunden 
werden. Will man an den einge- 
stellten Parametern nichts mehr 
ändern, kann man auch mittels ei- 
nes weiteren Hilfsprogrammes 
(TEXT TO SPEECH) einen beliebi- 
gen Text über die Tastatur einge- 
ben, der dann direkt als sog. 
„Composite-Textfile“ auf Diskette 
geschrieben wird. Derartige Files 
bilden dann den Ausgangspunkt 
zur Spracherzeugung durch das 
MB in eigenen Applesoft-Pro- 
grammen. 


2.2. Sound 


Mindestens ebenso vielfältig wie 
die Möglichkeiten der Spracher- 
zeugung sind die Möglichkeiten 
zur Produktion aller nur denkbaren 
Geräusche: angefangen mit einfa- 
chen, reinen Tönen einer Tonleiter 
bis hin zu komplexen Geräuschen, 
wie z.B. Meeresbrandung, Glok- 
kenklang, Helikopter, Dampfloko- 
motive oder Sphärenmusik. 

Pro Sound-Chip verfügt das MB 
über drei Übertragungskanäle. Je- 
der Kanal kann an- oder ausge- 
schaltet sein, und über jeden die- 
ser Kanäle kann ein Ton, ein Ge- 
räusch oder beides zusammen 
übertragen werden. Es können al- 
so 6 verschiedene Töne/Geräu- 
sche gleichzeitig produziert und 
gespielt werden (3 pro Sound- 
Chip), oder aber auch zu einem 
Helikoptergeräusch auf dem linken 
Lautsprecher ein C-Dur-Akkord im 
rechten Lautsprecher erklingen. 
Insgesamt ergeben sich also pro 
Sound-Chip 64 Kombinationsmög- 
lichkeiten zwischen Tönen und 
Geräuschen. 

Was das MB dann tatsächlich an 
Sounds produziert, wird durch die 
menügesteuerte Einstellung von 
verschiedenen Parametern festge- 
legt. Diese Parametereinstellun- 
gen werden für jeden Sound-Chip 
getrennt vorgenommen. Man legt 
z.B. fest, welche der drei Kanäle 
benutzt werden, bzw. ob ein Ton, 
ein Geräusch oder beides gleich- 
zeitig erzeugt werden soll. 


— Um einen Ton zu erzeugen, legt 
man zunächst dessen Frequenz 
und dann dessen Lautstärke fest. 
im Anhang des Manuals sind die 
Frequenzen-Einstellungen für alle 
Halbtöne aus acht Oktaven ver- 
merkt — 4080 verschiedene Ein- 
stellungen sind möglich. 

— Die Lautstärke kann aus einer 
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von 16 festen und einer variablen 
Einstellung gewählt werden. Diese 
variable Einstellung ermöglicht die 
Änderung der Lautstärke nach ei- 
ner von acht vorgegebenen „Hüll- 
kurven“. Der Ton kann z.B. leise 
anfangen, stetig lauter werden und 
dann plötzlich wieder auf die An- 
fangslautstärke abfallen; eine an- 
dere Möglichkeit ist das regelmäßi- 
ge An- und Äbschwellen des Tons. 
— Die Zeit, in der das Programm 
einer solchen Hüllkurve einmal ab- 
lauft, ist ebenfalls variabel. Es gibt 
hierfür 65535 verschiedene Ein- 
stellungen, die zB. aus dem 
Sound einer Dampflokomotive ei- 
nen Kanonenschuß machen! 


Die für die reinen Töne beschrie- 
benen Manipulationen können 
ebenso mit Geräuschen durchge- 
führt werden. Einem Geräusch 
kann jedoch nicht eine bestimmte 
Frequenz zugeordnet werden, da 
es aus verschiedenen Schwingun- 
gen aufgebaut ist. Ein Geräusch 
läßt sich dafür jedoch in 32 Stufen 
dehnen bzw. komprimieren, was 
den Grundcharakter sehr deutlich 
beeinflußt. Alle für gut befundenen 
Sounds lassen sich natürlich zur 
späteren Verwendung in Program- 
men auf Diskette speichern. 


3. Programmieren mit 
dem Mockingboard 


3.1. Sound 


Um in einem Applesoft-Programm 
an einer bestimmten Stelle z.B. ei- 
ne Glocke klingen zu lassen, müs- 
sen zunächst zwei Maschinenpro- 


Apple II 
+ Kompatible 
Komp 48 


48. K. 6502 ohne Firmware 


gramme (auf der mitgelieferten 
Disk) in den Speicher geladen 
werden, Im Applesoft-Programm 
selbst liegen die Informationen zur 
Erzeugung des Glockenklangs in 
Form von 16 DATA-Statements 
vor (jeder Sound-Chip braucht zur 
Sounderzeugung immer exakt die 
Werte für 16 Parameter). Um den 
Sound erzeugen zu können, wer- 
den die Werte dann nacheinander 
in einen freien Speicherbereich 
geschrieben, die Startadresse die- 
ser Daten wird dem Maschinen- 
programm mitgeteilt und die 
sound-Routine mit einem CÄLL- 
Befehl aufgerufen. Die Dauer des 
Sounds wird durch eine Zähl- 
schleife bestimmt, an deren Ende 
durch einen weiteren CALL die 
Sound-Routine wieder abgeschal- 
tet wird. So etwas könnte dann wie 
folgt aussehen: 


100 DATA 145,0,0,0,0,0,0,62,15, 
0,0,0,0,0,0,0 

110 A = 33024 

120/F0R x 0707152 BREAB"B 

130 POKEA + XD 

140 NEXT X 

150 POKE 8,0:POKE 9,129: 
REM Adresse von A 

160 CALL 32768 

170 FORT = 1 TO 4000 

180 NEXTT 

190 CALL 36897 

200 END 


Auf diese Weise können auch 
mehrere Sounds hintereinander 
produziert werden, bzw. die bei- 
den Sound-Chips mit unterschied- 
lichen Geräuschen beschickt 
werden. 
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3.2. Speech 


Die Einbindung von Sprache in ein 
Applesoft-Programm ist der 
Sounderzeugung recht ähnlich, je- 
doch noch einfacher. Aufgrund der 
komplexeren Daten, die zum Spre- 
chen notwendig sind, werden die 
zuvor als Composite-Textfiles ge- 
speicherten Worte/Sätze als 
Datenquelle benutzt. Um diese 
Daten lesen zu können, muß wie- 
derum ein Maschinenprogramm im 
Speicher vorhanden sein: der sog. 
COMPOSITE-DRIVER. Als näch- 
stes lädt man dann den Compo- 
site-Textfile in einen freien Spei- 
cherbereich, übergibt diesem 
Driver die Adresse der Daten und 
ruft dann die Speech-Routine mit 
einem CALL auf. Ein Abschalten 
dieser Routine ist nicht notwendig. 
Beispiel: 


10 PRINT CHR$(4); 

"BLOAD TESTSATZ,A35072" 
20 POKE 249,0:POKE 250,137 
30 CALL 27904 
40 END 


Um einem Programm einen „un- 
begrenzten Wortschatz” zu ver- 
schaffen (z.B. um eingetippte Änt- 
worten eines Benutzers vom Com- 
puter sprechen zu lassen), kann 
man noch zusätzlich eine Rule-Ta- 
ble mit den erforderlichen Aus- 
sprachregeln, sowie die zur Um- 
setzung der Antworten in Sprache 
benötigten vier weiteren Maschi- 
nenprogramme in den freien Spei- 
cherplatz laden (sofern freier Spei- 
cherplatz überhaupt noch vorhan- 
den ist !). 


Übrigens gibt es inzwischen ca. 50 
Programme, die ein vorhandenes 
Mockingboard unterstützen: MU- 
SIC CONSTRUCTION SET, ZAX- 
XON, ADVENTURE CONSTRUC- 


TOM SET.E. 
Der Hersteller des MB bietet eine 


ganze Reihe käuflicher Zusatzpro- 
gramme/Programmierhilfen an, die 
es z,B. ermöglichen sollen, ver- 
nünftige deutsche, französische 
oder englische Sprache zu erzeu- 
gen. Leider standen bis dato diese 
Programme nicht zu einem Test 
zur Verfügung. 


4, Fazit 


Mockingboard © ist ein sehr vielfäl- 
tiges, leicht zu bedienendes „Ge- 
rät" zur Sound- und Spracherzeu- 
gung. Die kreativen Möglichkeiten 
bei der Entwicklung immer neuer 
Geräusche, Töne oder auch Mu- 
sikstücke sind (fast) unbegrenzt. 
Die Einbindung in Applesoft-Pro- 
gramme ist an sich leicht, wenn 
auch aufgrund von (Speicher-)- 
Platzproblemen manchmal unmög- 
lich. Um Musikstücke mit dem MB 
selbst zu schreiben, ist meines 
Erachtens zusätzliche Software 
wie z.B. das MUSIC CONSTRUC- 
TION SET unverzichtbar, wenn 
man für zehn Takte nicht fünf Stun- 
den am Computer sitzen will. 

Ein deutlicher Wermutstropfen ist, 
so finde ich, auch der nicht gerade 
niedrige Preis: In Deutschland 
wechselt das Mockingboard C für 
ca. DM 660,- den Besitzer. Bei 
Software-Discountern in den USA 
ist es etwa für $124,- plus 15-20% 
Versandgebühren zu erhalten. 


Für Apple Il, le r 


80-Zelchen-Karte 
mit Soritswilch, neue 
Vers. m. gesi. schart. Bild 


Spesch-Karla 
Glock-Karte 
Super-Serlal-Karte 


Komp 2E 

Apple 2E kompatible, Rechner 
64 K im ZE-Design, ohne Firmware 
802 + 64K-Karte 0,- wo 
für ZE kompatibie 


Komp 64 nn 139,- 
64 K, 6502, Z-80, 15er-Block 
ohne Firmware B40,- 
Komp 64 8 
wie Komp 64, jedoch mil abgesetzter 
Tastatur mit 188 Funktionen. 
N Motherboard 48 K . 
er 8 Slots, alle IC's gasockelt, 
AND OR io Firmware, fertig geprüft 
le Motherboard 64 K 


Z-80-Karte 
Disk-Interlace 


69,- 
59,- 
— 


Centronics-Interf.m. Kabel 59,- 


34,” 
120,- ; 
199,- 
197,- 4 


16-K-RAM-Karte 
RS-232-Karle 
Eprommer (A, 8, 16 K) 
128-K-RAM-Karle 
256-KB-RAM-Karte 


‚ Wild-Karte 
# #5, \knackl geschützte Programme) 
# # +. Nändleranfragen erwünscht! 


B,- 
109,— 
139,- 
279,- 
48,- 

09,- 


wie oben, mit 6502 und 


STR) 0 m 


6 Monate 
Garantie Versand erfolgt per NN oder Vorkasse 


99- Klaus Jeichka 


AN Hard-, Soltwaro 

| Vieristr. 3-13 
6233 Kelkhıoim 

N 2 (06198) 7523 


Der Bühler spinnt!!! 


Hier ze gt er nichts!? Aber in seinem großen Katalog alles, was preisbewußte User 
nicht schlafen läßt. Super 16 BIT-Angebote, Spezial 16 BIT-Sonderliste unter BN 10106 
Katalog 4 mal im Jahr kostenlos! Anfordern! 


Bühler Copmputer: Postfach 32, 7570 Baden-Baden % Shop: Waldstraße 46, 7500 Karlsruhe 
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Mit dem Microline 192 (der Micro- 
line 193 unterscheidet sich nur 
durch die breitere Bauweise) stellt 
Okidata einen Imagewriter-kompa- 
tipblen Drucker vor, der neben dem 
günstigeren Preis auch noch ande- 
re Vorzüge aufweist. 


Das Handbuch 


Die Handhabung eines Druckers 
ist nicht minder anspruchsvoll wie 
die Bedienung eines größeren 
Software-Pakets. Daher ist das 
Handbuch besonders wichtig, da 
es den effizienten Einsatz ent- 
scheidend bestimmt. 

Das mitgelieferte Handuch umfaßt 
knapp 100 Seiten und läßt zu- 
nächst etwas an der Professionali- 
tät des ganzen Produkts zweifeln. 
Auch die Tatsache, daß es sich um 
ein eigens für Apple-Benutzer ge- 
schriebenes Handbuch handelt, 
hätte nicht Anlaß sein müssen, 
lieblos beschnittene Fotokopien in 
Leimbindung zu liefern. 
Abgesehen davon bietet es jedoch 
übersichtlich alle benötigten Infor- 
mationen — sofern man Englisch 
spricht. In zahlreichen Tabellen 
und Kästen findet man beim späte- 
ren Nachschlagen schnell die ge- 
wünschten Steuercodes. Hier hät- 
ten nur einige Beispielausdrucke 
die Verständlichkeit noch erleich- 
tern können (wie z.B. in den Hand- 
büchern zu Epson-Druckern). 


Inbetriebnahme 


Der Drucker kann nach dem Aus- 
packen schnell in Betrieb genom- 
men werden. Außer dem Anschluß 
des Interfaces und der Netzverbin- 
dung muß nur noch Papier und 
Farbband eingespannt werden. 
Das Farbband ist wie bei fast allen 
Druckerherstellern ein spezielles 
(Okidata-)Farbband. Der Nachkauf 
wird somit zwar erschwert, der Ein- 
bau ist jedoch in Sekundenschnel- 
le vorgenommen (mancher Star- 
Druckerbesitzer hätte sich ange- 
sichts seiner schwarzen Finger 
dann doch für diese Lösung enti- 
schieden). 
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icroline 192 von 


Ki 


getestet von Harald Grumser 


Die Anpassung an unterschiedli- 
che serielle Interfaces erfolgt 
durch Umschalten von leicht zu- 
gänglichen DIP-Schaltern. Die Ein- 
stellung anderer Parameter, wie 
Zeichensatz (7 nationale Zeichen- 
sätze), Papierende-Erkennung 
oder automatisches LF nach CR 
erfolgt durch ein Firmware-Menü 
(!} des Druckers. Dabei erfolgt die 
Ausgabe des Menüs auf dem Pa- 
pier und die Eingabe durch die 
Druckertasten (Line Feed, Form 
Feed, TOF Set, Select). Diese Pa- 
rameter bleiben selbst bei abge- 
schaltetem Drucker erhalten und 
ersetzen so die bei anderen Gerä- 
ten üblichen DIP-Schalter, zu de- 
ren Betätigung z.T. der halbe Druk- 
ker zerlegt werden muß (z.B. Ep- 
son RX-80). 


Handhabung 


Die Handhabung unterscheidet 
sich grundsätzlich wenig von an- 
deren Druckern. Es sind die Klei- 
nigkeiten, die den Wert eines sol- 
chen Geräts steigern. 





Microline l-= von ÖOkıdata 
Der Microline 1PZ Kennt & verschiedene Laufweiten: 
cpi: Dieser Satz ist nicht immer gleich lanca. 
cpi: Dieser Satz ist nicht immer gleich lang. 
cpi: Dieser Satz ist nicht immer gleich lang, 
cpi: Dieser Satz ist nicht immer gleich }ang. 
cpiz: Dieser Satz ist nicht immer gleich lang. 
cpis Dieser Satz ist nicht immer gleich lang, 


Pica-Schrift läßt sich auch im Proportional-Modus ausgeben. 
Genauso wie die Elite-Schrift mit 12 cpi (Chracters per Inch). 


Für die Karrespondez schaltet man am besten in den NLQ- 
und Proportional-Madus: 

Die Ausgabe wird zwar langsamer, dafür erhält man aber ein 
besseres Schriftbild. 


Natürlich gibt es die Möglichkeit des 

Doppeldrucks mit horizontaler Werschiebung oder des 
Doppeldrucks mit vertikaler Verschiebung. 

Beides gemischt ergibt dann halbfetten Druck. 

Das Hsehatellen und rıessteiten 138 sich, ebenso wie 
das Unterstreichen,. in verschiedenen Laufweiten 

und auch im Krane er Da ee realisi j 





Abb. T: Schriftmuster 
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— Der Traktor fällt mit der Friktions- 
walze zusammen und liegt auf der 
Höhe des Druckerkopfes. Somit 
kann sowohl im Einzelblatt- als 
auch im Lochrand-Endlos-Format 
jedes Blatt von oben beschrieben 
werden, ohne ein Blatt als Vor- 
spann opfern zu müssen. 

— Ein Schlitz im Boden erlaubt das 
Einführen des Papiers von unten, 
was sich bei entsprechendem 
Druckerständer als praktischer er- 
weist als die Zufuhr von hinten. 

— Die Temperatur des Druckerkop- 
fes wird überwacht und die Druck- 
geschwindigkeit ggf. reduziert, 
wenn bei kilometerlangen Print- 
outs die Gefahr einer Überhitzung 
besteht. 


Schriftarten 


Ein Teil der Schriftarten kann aus 
Abb. 1 entnommen werden. Die 
Überschrift wurde in einem spe- 
ziellen Modus gedruckt, der alle 
Zeichen in doppelter Breite aus- 
gibt. 

In jedem Fall erwähnenswert ist die 
Möglichkeit der Schönschrift (NLQ 
= Near Letter Quality). Wie der 
Name bereits sagt, kann ein Teil 
der Korrespondenz durchaus mit 


diesem Druck-Modus erstellt wer- 
den und bietet somit eine Alternati- 
ve zu den reinen Schönschreib- 
druckern oder Schreibmaschinen 
mit Schnittstelle, die für die Ausga- 
be von Datenkolonnen zu langsam 
sind und somit als Zweitgerät zu- 
gelegt werden müssen. 

Die Vermischung der Schriftarten 
wird, wie oben bereits erwähnt, im 
Handbuch nicht durch Beispiele 
erläutert, und es bedari einiger 
Versuche, um die vollen Möglich- 
keiten dieses Druckers kennenzu- 
lernen. 


Kompatibilität 


Der Microline 192 ist weitgehend 
steuercode-kompatibel zum Ap- 
ple-Imagewriter. Das Programm 
Superdump läuft ohne jegliche An- 
passung, wenn die Imagewriter- 
Parameter verwendet werden. Die 
Realisierung von Indizes (Tiefstel- 
len) und Exponenten (Hochstellen) 
wurde sogar vereinfacht; ein Steu- 
erzeichen genügt nun. Der von 
Steuercodes wimmeinde Text in 
Abb. 1 wird vom Imagewriter (ab- 
gesehen von der zweiten Möglich- 
keit des Doppeldrucks und des 
Hoch- und Tiefstellens) genauso 
wiedergegeben. 


Semian presents... 


e CP/M Plus System für Apple //e, c 


— CP/M Plus Modul mit Betriebssystem CP/M 3,0 

— Z8OH mit 8MHz, 128K RAM, Drucker-Spooler mit 12K RAM 

— Maus-Funktion mit allen CP/M Programmen! 

— Kompatibel zu CP/M 2.20 und 2,23. 

— Einsatz aller CP/M Sprachen und Programme (WORDSTÄR etc.) 


K010 Apple //c GP/M Plus System 


DM 949,00 


KO11 Apple //c CP/M Plus System und 


WORDSTAR/MAILMERGE-Programme 
KO12 Appie //e CP/M Plus System DM 


DM 1399,00 
599,00 


e 1 MB RAM Karte für Apple //+, e 


— FLIPPER Karte wird komplett mit 1 MB RAM geliefert. 

— Max. 6 MB RAM für Ihren Apple //+, e, 

— 100 % Kompatibel mit PRODOS (Appleworks), DOS, PASCAL, CP/M, 
Kein 'patchen’ notwendig, Einsatz in jedem Slot 

— Gleichzeitiger Einsatz verschiedener Betriebssysteme 


K070 Apple //+, e Flipper Karte mit 1 MB RAM DM 1699,00 


e Champion Karte für Apple //+, e 
— Parallele Text- und Grafik-Druckerkarte komplett mit Kabel 

— Mit 16K oder 64K RAM Puffer, 40/80 Zeichen Dump 

— Einsatz von DOS, PRODOS (Appleworks), PASCAL, CP/M 

— Volle Apple //e Graphik, Serieller Ausbau möglich. 


K030 Apple //+, e Champion Interface 


DM 250,00 


K032 Apple //+, e Champion Interface 16K RAM DM 459,00 
K033 Apple //+, e Champion Interface 64K RAM DM 599,00 


Alle Preise inkl. MwSt, Auf alle Produkte 12 Monate Garantie. 
Neuen Katalog anfordern. Händleranfragen willkommen! 
Wir sind General-Importeur von CIRTECH-Produkten. 


M.Semjan 


Computer Systeme 


Postfach 90 01 64 - 6000 Frankfurt/M 90 
Tel. 069-70 1853 - Mo-Fr 10.30-15 Uhr 
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PROodukre 


Geschwindigkeit 


Die Angabe der Druckgeschwin- 
digkeit erfolgt oft nach theoreti- 
schen Werten. („Wenn die Walze 
zwei Meter hätte, würde der neue 
Imagewriter |! glatte 250 Zeichen 
machen.) Wir haben daher die 
Netto-Geschwindigkeit ermittelt 
und verglichen. Hierzu wurde ein 
String mit 79 verschiedenen Zei- 
chen, gefolgt von einem Return, 
mehrmals gedruckt. Damit wird 
auch der Papiertransport mitbe- 
rücksichtigt. Im normalen Betrieb 
können nochmals schlechtere 
Werte auftreten, da selbst bei bidi- 
rektionalem Druck der Kopf z.T. 
Leerwege zurücklegen muß. Die 
gestoppten Zeiten ergaben folgen- 
de Werte: 


— Microline 192: 93 Zeichen/sec 
— Epson FX-80: 97,5 Zeichen/sec 
— imagewriter: 67 Zeichen/sec 


Gedruckt wurde jeweils bidirektio- 
nal in Standardschrift mit Drucker- 
puffer (im Microline 2K). 


Nachteile 


Der Traktor erlaubt im Gegensatz 
zu Geräten der gleichen Preisklas- 


° UNIVERSAL 





se nur Papier mit Breiten zwischen 
9,5 und 10 Inches. Zum Druck von 
Lochrand-Etiketten muß ein zu- 
sätzlicher Traktor-Antrieb erwor- 
ben werden. 

Die Steuercodes bleiben auch 
nach dem Ausschalten erhalten. 
Demnach kann nach dem Ein- 
schalten nicht von einer definierten 
Grundeinstellung ausgegangen 
werden. Hat man abends also das 
letzte Wort halbfett gedruckt, so 
sollte man diese Option wieder 
aufheben, um am nächsten Mor- 
gen nicht ein böses Erwachen zu 
haben. 


Fazit 


Wer an der Schwelle zum Kauf ei- 
nes Druckers steht und der Mög- 
lichkeit des Schönschreibdrucks 
hohen Stellenwert einräumt, findet 
mit dem Microline 192 ein passen- 
des Gerät für sein Anliegen, das 
darüber hinaus mit einem Großteil 
an Software läuft, die speziell für 
den Imagewriter geschrieben wur- 
de. Diese Vorzüge rechtfertigen 
durchaus den Preis um DM 1800, -, 
der im Angebot der Billig-Drucker 
zunächst etwas hoch erscheinen 
mag. 


KEYBOARDS 


Modell ANISFE DM 448,- ohne MwSt. (DM 510,72 incl. MwSt.) 
angepaßt für den Apple Ile open & closed Apple Tasten 

Modell ANISFST+ DM 456,- ohne MwSt. (DM 519,- incl. MwSt,) 
einsteckfertig für den Apple II+ mit String-Ausgabe 


Modell ANISFT+ DM 428,- ohne MwSt. (DM 487,92 incl. MwSt.) 
einsteckfertig für den Apple II+ 2 Hauptebenen, Hexblock. 


Händleranfragen erwünscht 


FLEXIBEL 


Jede Taste frei im EPROM programmierbar in 


bis zu 16 Ebenen im mitgelieferten EPROM 


PROFESSIONELL 
ERGONOMISCH 


Für Anwender mit gehobenen Ansprüchen 
Nach DIN ULTRAFLACH gestaltetes stabiles 


Gehäuse, rutschfest 


KOMPLETT 


Tastatur, Gehäuse und Kabel fertig montiert 


und getestet. Durch Spezial-Kabel (Spezial- 
EPROM für Ile) sofort einsteckfertig. 


KOMPAKT + FLACH 


Durch Einsatz von „SIEMENS" Flachtasten- 


module mit Goldkontakten + Druckpunkt 





* AH 


gesellschaft für 
compulersteuerungen 
und datentechnik mbh 


D-4930 Detmold x Alter Mühlenweg 5 
Telefon 0 52 31/41 76 x Telex 935 660 acs d 
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Diskettenkasten für Hängeregistratur 


ComputerLinks GmbH, München 
hat ein neues praktisches Zubehör 
im Angebot. Der Diskettensafe 
ROLLI-DISK paßt in jede Hängere- 
gistratur und ist so konstruiert, daß 
die 5,25"-Disketten in Schubladen 
geschoben werden können. Jede 
Box hat unterteilte Fächer und ist 
für bis zu 80 Disketten ausgelegt. 
In eine Hängeregistratur passen 
zwei ROLLI-DISK. Der Anwender 
spart sich die platzraubende Dis- 
kettenbox auf dem Schreibtisch, 
die Disketten werden griffbereit 
und diebstahlsicher, wie z.B. in ei- 


nem Schreibtischunterschrank, 
aufbewahrt. 

Bezugsquelle: ComputerLinks, 
München 
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Optokoppler-Karte 


Die Optokoppler-Karte für den Ap- 
ple II ermöglicht die galvanische 
Trennung von Computer und Peri- 
pherie bei Steuerungsaufgaben. 
Je nach Ausbaustufe der Karte 
werden 8 parallele Eingabe- und/ 
oder 8 parallele Ausgabeleitungen 
zur Verfügung gestellt. Damit eig- 
net sich diese Interface-Karte zur 
Datenübertragung in Stromschlei- 
fentechnik oder für alle Anwendun- 
gen, bei denen der Computer vor 
Störungen durch die angeschlos- 
sene Peripherie geschützt werden 
soll, z.B. bei Steuerung induktiver 
Lasten. Besonders hervorzuheben 
ist, daß die Optokoppler-Karte 
auch mit Software im EPROM ge- 
liefert weren kann. Die Software ist 
als &-Erweiterung des Applesoft- 
BASIC-Interpreters ausgelegt und 
deshalb nur in Verbindung mit die- 
sem Betriebssysiem verwendbar. 
Die &-Software stellt dem BASIC- 
Programmierer leistungsfähige Be- 
fehle, z.B. das direkte Ansprechen 
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einer einzelnen Leitung, zur Verfü- 
gung. Wenn der Anwender eigene 
Treiber-Software für die Opto- 
koppler-Karte einsetzen möchte, 
besteht die Möglichkeit, die &- 
Software auf Diskette zu kopieren 
und das EPROM durch ein RAM zu 
ersetzen. Damit stehen Insgesamt 
2048 Bytes Speicherbereich zur 
Verfügung, in denen auch umfang- 
reichere Treiberroutinen bequem 
untergebracht werden können. 
Durch den Einsatz eines RAMs 
kann die &-Software alternativ wei- 
terverwendet werden. Die Opto- 
koppler-Karte ist in verschiedenen 
Ausbaustufen lieferbar und kostet 
DM 85,- (nur Ein- oder Ausgabe) 
oder DM 155,- (Ein- und Ausgabe, 
&-Software). Eine ausführliche Be- 
schreibung liegt jeder Optokopp- 
ler-Karte bei. Interessenten erhal- 
ten auf Anfrage eine kostenlose 
Kurzbeschreibung. 

Bezugsquelle: Kurt Stimmler, Tü- 
bingen 


Typenrad-Drucker Typeterm 
Neben dem bereits etablierten Di- 
rekt-Interface Typeterm zum Be- 
trieb der Brother-Typenradschreib- 
maschinen GCE-51 bis EM-250 als 
Ein- und Ausgabemedium am Ap- 
ple |l/lle bietet die Firma interkom 
electronic jeizt das Typeterm Ju- 
nior an. Es handelt sich um das 
steckfertige Paket aus Typenrad- 
schreibmaschine AX-10 und Di- 
rekt-Interface zur Ausgabe am Ap- 
ple II/lle. Auch hier wird kein zu- 
sätzliches Interface benötigt, da es 
sich um eine Slot-Karte handelt. In 
Verbindung mit dem Interface wird 
die AX-10 zum vollwertigen Ty- 
penraddrucker und bietet weiter- 
gehende Möglichkeiten, wie z.B. 3 
verschiedene Schriftsiärken, auto- 
matisches Unterstreichen, deut- 
scher und vollständiger ASCII-Zei- 
chensatz (mit allen Brother-Typen- 
rädern).. Alle Betriebssysteme 
DOS, ProDOS, Pascal, CP/M wer- 
den von der 2K-Software auf der 
Karte unterstützt. Ein Handbuch 
gehört zum Lieferumfang. 
Bezugsquelle: interkom electronic, 
Isernhagen 


Disketten von Mitsubishi 

Die Mitsubishi Corporation, Tokio, 
startet ab Oktober 1985 europa- 
weit mit dem Vertrieb von Disket- 
ten. Die Vertriebsaktivitäten wer- 
den von Distributoren übernom- 
men. Für die Bundesrepublik 
Deutschland werden diese Aktivi- 
täten von microscan GmbH wahr- 
genommen. Das Produktionspro- 
gramm umfaßt 8-Zoll- 5,25-Zoll- 
und 3,5-Zoll-Disketten mit unter- 
schiedlichen Speicherdichten. 
Qualitativ erfüllen die Disketten, 
die komplett von Mitsubishi Che- 
mical Industries Ltd. (MCI), herge- 
stellt werden, höchste Ansprüche. 
Bezugsquelle: microscan GmbH, 
Hamburg 


Satzprogramm Pagemaker 

Das neue Programm „Pagemaker" 
von der Aldus Corporation, Seatt- 
le/USA, macht den Macintosh 
auch für das Druckgewerbe zu ei- 
ner kostensparenden Alternative 
zu bisherigen Druckpraktiken. 
„Die elektronische Bearbeitung ei- 
ner Vielzahl von kommerziellen 
Text- und Grafikanwendungen und 
deren Ausdruck in Satzmaschi- 
nenqualität läßt sich künftig zu et- 
wa einem Viertel der bisher dazu 
erforderlichen Investitionen durch- 
führen“, erklärte Ralph M. Deja, 
Geschäftsführer der Apple Com- 
puter GmbH, am 26. November 
1985 in München. Bisher be- 
schränkten sich diese qualitativ 
hochwertigen Anwendungen auf 
Computersysteme der 100.000- 
Dollar-Klasse. „Pagemaker“ er- 
möglicht professionellen Anwen- 
dern ohne EDV-Kenntnisse den 
elektronischen Umbruch und das 
grafische Gestalten direkt am Bild- 
schirm eines Macintosh. Presse- 
mappen, Informationsbriefe, Ge- 
schäftsberichte, Datenblätter, 
Preislisten, Handbücher, Bedie- 
nungsanleitungen mit technischen 
Grafiken, Angebotsschreiben, 
Werbebriefe, Werbeprospekte und 
-broschüren, Präsentations- und 
Schulungsunterlagen und viele 
weitere Geschäftsdokumente las- 
sen sich einfach auf dem Schreib- 
tisch gestalten und „umbrechen". 
„Pagemaker“ läuft auf dem 512K- 
Macintosh und dem Macintosh XL 
(Lisa). Benötigt wird ein externes 
Diskettenlaufwerk bzw. die einge- 
baute Festplatte beim Macintosh 
XL. „Pagemaker“ arbeitet sowohl 
mit dem Apple-Matrixdrucker 
„magewriter“ als auch mit dem 
neuen intelligenten Apple-Laser- 
drucker „Laserwriter“. „Pagema- 
ker” kostet in der deutschen Ver- 
sion ca. 2.200,- DM. 
Bezugsquelle: Apple Computer 
GmbH, München 


Synthesizersystem Juice digital 
Der Juice digital ist ein vollständi- 
ges, polyphones Synthesizersy- 
stem mit ungeheuren Möglichkei- 
ten. Das Zeitalter der vielen Knöp- 
fe und Mini-LCD-Anzeigen ist da- 
mit vorbei. Dieser Keyboard-Com- 
puter „unterhält“ sich mit Ihnen 
über einen großen Bildschirm und 
eine Schreibmaschinentastatur. 

Die Hardware: 9"-Bildschirm, 
wahlweise ein oder zwei Floppy- 
Laufwerke, Eingabe-Tastatur und 
5-Oktaven-Keyborad - alles in ei- 
nem Gehäuse. Der empfindlichen 
Computertechnik wurde durch ei- 
ne aufwendige und stabile Kon- 
struktion Rechnung getragen. An- 
schlüsse für einen großen Monitor 
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und externe Eingabe-Tastatur sind 
vorhanden. Weitere Peripheriege- 
räte lassen sich problemlos an- 
schließen. Er besitzt 16 digitale 
Oszillatoren, die in zwei Gruppen 
zu je 3 unterteilt sind. Für die Os- 
zillatoren steht je eine program- 
mierbare ADSR und ein program- 
mierbarer Lautstärkesteller sowie 
ein programmierbarer LFD zur Ver- 
fügung. Damit werden Filter unnö- 
tig. Wenn die Oszillatoren unter- 
schiedliiche ADSR-Programmie- 
rung und Obertongehalt aufwei- 
sen, ergibt sich durch Summierung 





OSP-2-Matrixdrucker 


Einen äußerst vielseitigen und lei- 
stungsfäahigen 12-Nadel-Drucker 
für PC-Anwendungen stellt jetzt 
die Firma Data Recording vor. Der 
Drucker wird höchsten Anforde- 
rungen gerecht und bietet u.a. in- 
tegrierten Einzelblatteinzug (ein- 
stellbar bis DIN A4 quer), 7 Farben, 
Schnell- (200 cps) und Korrespon- 
denzschriftt (100 cps), Grafik, 
steckbare Interface-Karten (seriell 
RS232C und Centronics parallel) 
sowie 12 eingebaute Zeichensätze 
incl. IBM-1- und 2-Zeichensatz. 
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und Auslöschung der Oberwellen 
der gleiche Effekt. Die Tonerzeu- 
gung erfolgt durch additive Syn- 
these. Ausgänge für Ihren Stereo- 
Verstärker sind selbstverständlich. 
Die Software: 2 Disketten mit aus- 
führlichem Handbuch sind im Lie- 
ferumfang enthalten. Diskette 1 
enthält das Betriebssystem und die 
5 Anwenderprogramme. Auf der 2. 
Diskette befinden sich massenwei- 
se vordefinierte Sounds. 
Bezugsquelle: Digitanalog — Ewald 
Balfer, Krombach 


v 


Der Drucker ist Epson-Code-kom- 
patibel und unterstützt zahlreiche 
Sonderfunktionen, wie z.B. ein 
programmierbares Interface. Er ar- 
beitet mit den gängigen IBM-Soft- 
ware-Paketen zusammen und 
kann deren Grafiken auch in Farbe 
zu Papier bringen. Die zahlreichen 
Funktionen des Druckers können 
wahlweise über das Interface oder 
ein eingebautes Operator-Panel 
selektiert werden. 

Bezugsquelle: Data Recording In- 
strument GmbH, München y 





RAMWORKS und Z-RAM 

RAMWORKS heißt die Speicherer- 
weiterungskarte von Applied Engi- 
neering für Apple-Ile-Rechner. Sie 
wird in den Auxiliary-Slot einge- 
steckt und ersetzt dabei die 6A4K- 
Karte. Darüber hinaus kann sie je 
nach Aufrüstung mit bis zu IM als 
schnelle RAM-Disk unier DOS, 
ProDOS, CP/M und Apple-Pascal 
benutzt werden, Das Besondere 
aber ist die mitgelieferte Software 
zum AÄnpassen des deutschen 
Appleworks 1.2 an die RAM- 
WORKS. Ergebnis ist dann nicht 
nur ein Arbeitsspeicher von bis zu 
758K, sondern auch eine wesentli- 
che Verbesserung von Apple- 
works. So besteht die Möglichkeit, 
alle Programm-Module in die Karte 
zu laden, einen Teil des Speichers 
als Druckerpuffer zu nutzen und 
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die Timemaster || automatisch 
beim Start mit Datum und Uhrzeit 
im deutschen Anzeigeformat ein- 
zubinden. Die maximale Record- 
Anzahl in der Datenbank wird 
ebenso erhöht wie die maximale 
Anzahl von Zeilen in der Textverar- 
beitung. 

Die Z-RAM kann bis zu 512K fas- 
sen, wird in den APPLE Ilc einge- 
baut und stellt neben einem 
schnellen Z80B mit 6 MHz, lizen- 
ziertem CP/M 4.0B (entspricht 
CP/M 2.23) und 256K bzw. 512K 
RAM-Disk die bereits für die RAM- 
WORKS genannten Appleworks- 
Erweiterungsmöglichkeiten bereit, 


maximale Erweiterung der 
„Schreibtischfläche" hier bis 
Sa. 

Bezugsquelle: Weiß Computer, 
Wilhelmshaven 





CSW-EPROM-Karte für Apple Il 
Bei der GSW-Burnerkarte handelt 
es sich um ein komfortables und 
universelles EPRÖM-Program- 
mier-Gerät. Es besteht aus der ei- 
gentlichen Brennerkarte und einer 
kleinen Extenderkarte mit einem 
28poligem Nullkraftsockel. Die bei- 
den Karten sind.über ein 40poliges 
Flachbandkabel miteinander ver- 
bunden. Neben dem Nullkraftsok- 
kel sind auf der Extenderkarte 
noch Leuchtdioden für die Anzeige 
des Betriebszustandes und der 
EPROM-Typen (16-128K) unter- 
gebracht, 

Die Trennung von Brennerkarte 


und Nullkraftsockel ermöglicht in’ 


Verbindung mit der menügeführten 


Softwaresteuerung aller Funktio- 
nen ein bequemes Arbeiten auch 
bei geschlossenem Rechner. Die 
folgenden Ausstattungen erhöhen 
den Bedienungskomfort zusätz- 
lich. 

— keine zusätzlichen externen Ver- 
sorgungsspannungen, 

—-—vier separat anzusleuernde 
Brennspannungen, 

- Anzeige des EPROM-Typs und 
des Beitriebszustandes auf der 
Slotkarte und der Extenderkarte, 

— alle Funktionen werden per Soft- 
ware geschaltet, 

— Im nicht-aktiven Zustand wird die 
Burnerkarte abgeschaltet, 

Bezugsquelle: Weiß Computer, 

Wilhelmshaven 


Treue wird belohnt! 


Applesoft-Editor 


Mit der Sammeldiskette # 16, die zum Heft 4/1986 ver- 
schickt wird, werden die regelmäßigen Bezieher der Pee- 
ker-Sammeldisketten zusätzlich einen vollstänigen DOS- 
3.3-Applesoft-Editor, der auf allen Apple-Il-Typen (+/e/c) 
läuft, mit Zeileneditor, Renumber, Variablenliste und vielen 
anderen Features kostenlos erhalten. Mit dieser Zusatzlei- 
stung belohnen wir unsere treuen Stammkunden. Der 
Applesoft-Editor wird nur an diejenigen verschickt, die be- 
reits vor dem 1. April 1986 Fortsetzungsbezieher der Sam- 
meldisketten gewesen sind. Wer also bis zum 31. März 
1986 noch einen Fortsetzungsauftrag für mindestens 6 
Sammeldisketten erteilt ist, dabei! 


Hüthig Software Service - Heidelberg 
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Daten-Diagnosesystem 


Lange Communications vertreibt 
jetzt die Erweiterungskarte „Me- 
tascope“ der Fa. Metatek Inc. für 
den Apple II, II+ und Ile. Der Apple 
Il wird damit zu einem interaktiven 
Datenanalysator aufgerüstet. 
Durch die preiswerte Hardware 
des Mikrocomputers kann dieser 
im Vergleich zu den bisher verfüg- 
baren Systemen als sehr preisgün- 
stiges Daten-Diagnosesystem ein- 
gesetzt werden. Der Apple I| läßt 
sich damit zur Lösung von Proble- 
men im Bereich der Datenübertra- 
gung, zur Analyse von Protokollen 
und Neizwerken einsetzen. Er 
kann zur Entwicklung von Proto- 
kollen und entsprechenden 
Schnittstellen für Systeme aller Art 
verwendet werden. Dabei können 
z.B. Netzwerke, Front-End-Pro- 
zessoren oder Terminal-Steuer- 
einheiten emuliert werden. Die 
Metascope-Karte ermöglicht so- 
wohl asynchrone als auch syn- 
chrone Datenströme bis 19.200 
Baud zu analysieren. Die Daten 
werden dabei in jeweils einer Rich- 
tung invers dargestellt. Darstellbar 
sind die Zeichen in ASCIl, EBC- 
DIC, Baudot und Hexadezimal. Auf 
der Diskettenstation können die 
Daten gespeichert oder über einen 
angeschlossenen Drucker ausge- 
druckt werden. Dies erlaubt z.B. 
Technikern vor Or, die auftreten- 
den Probleme aufzuzeichnen und 
in der Zentrale von entsprechen- 
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den Spezialisten analysieren zu 
lassen, Die Einstellung des Sy- 
stems ist menügesteuert und da- 
her auch bei weniger häufigem 
Einsatz leicht zu handhaben. Ein- 


mal optimierte Konfigurationen 
können auf Diskette gespeichert 
werden und sind so problemlos 
später wieder einsetzbar. Um spe- 
zielle Problemfälle lösen zu kön- 
nen, kann die Aufzeichnung der 
Daten auch in Abhängigkeit von 
einer vom Anwender definierten 
Trigger-Sequenz erfolgen. Zum 
Beispiel kann die Aufzeichnung 
beginnen oder enden, nachdem 
eine bestimmte Zeichenfolge 
A40mal im Datenstrom erkannt wur- 
de. Darüber hinaus ist das System 
frei programmierbar, um auch sehr 
komplexe Problemstellungen zu 
bearbeiten. So lassen sich Test- 
Sequenzen senden oder spezielle 
Endgeräte, wie z.B. Terminal- 
Steuereinheiten, simulieren. Die 
Funktionstasten können dabei je 
nach Bedarf belegt werden, so daß 
der Anwender das laufende Simu- 
lationsprogramm entsprechend 
der jeweiligen Situation steuern 
kann. Mehrere Zeitnehmer und 
Zähler stehen außerdem für die 
Programmierung zur Verfügung. 
Die erstellten Programme können 
anschließend auf einem Disketten- 
laufwerk abgelegt werden. 
Bezugsquelle: Lange 
GmbH, Lippstadt 


& Co. 


Preissenkung für Apple-Computer 


Der Preis des Macintosh 128K wird 
von DM 8.470,- auf DM 7.980,- 
gesenkt. Der Preis für den Macin- 
tosh 512K verringert sich von DM 
10.500,- auf DM 8.949,-. Außer 
den Preisreduzierungen sind für 
die Apple-Il-Modelle neu im Pro- 
gramm-Ängebot ein „Apple-Ile- 
Ausbau-Paket I“ (DM 2.565,-) und 
„Apple-Ile-Ausbau-Paket II“ (DM 
2.850,-) sowie ein „Apple-IIc- 
Startpaket“ (DM 3.990,-). Das Ap- 
ple-Ile-Ausbau-Paket I umfaßt ei- 
nen Monitor Ile, ein externes Lauf- 
werk, eine Speichererweiterung 
auf 128K und 80-Zeichen-Darstel- 
lung und das integrierte kommer- 


Roboter-Plotter Penman 


Neu im Vertriebsprogramm der 
Compucon Deutschland GmbH ist 
ab sofort „Penman", ein vollkom- 
men neu entwickelter und unkon- 
ventioneller „Roboter-Plotter", 
„Penman“, mit dem Titel „Peri- 
pheriegerät des Jahres 1985“ (Bri- 
tish Microcomputing Awards) aus- 
gezeichnet, plottet vielfarbig und 
ist frei programmierbar. Der Robo- 
ter-Plotter bewegt sich mit nur 
zwei Steuerrädern frei auf dem Pa- 
pier. Der Vorteil: Kreiszeichnun- 
gen sind echte Kreiszeichnungen, 
und keine „Zickzack“-Geraden, 
unterschiedliche Papiergrößen 
können benutzt werden. „Pen- 
man“ kann direkt durch Software- 
Pakete wie AUTOCARD, MAC- 
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ziele Programm „Appleworks“. 
Das Ausbau-Paket II beinhaltet ei- 
nen Monitor II, ein Doppel-Lauf- 
werk, eine Speichererweiterung 
auf 128K und 80-Zeichen-Darstel- 
lung sowie die Programme „Ap- 
plewriter" und „Quickfile“. Ach- 
tung: Die Ausbaupakete umfassen 
nicht das Grundgerät (Platine)! 
Zum Startpaket gehören ein Ap- 
ple-IIc-Grundgerät, ein Monitor IIc 
mit Ständer, eine Tragetasche und 
das integrierte kommerzielle Pro- 
gramm „Appleworks"“. 
Bezugsquelle: Apple Computer 
GmbH, München 


PLOT und DOODLE gesteuert 
werden, spezielle Software liegt 
vor für IBM-PCs und Kompatible, 
Apple || und Apricot. Geliefert wird 
auf Wunsch ein „Utility Pack Gui- 
de“ zur individuellen Programmie- 
rung in Microsoft-BASIC, mit Sub- 
routinen, Listings und Driver. 
„Penman“ ist die ideale Ergän- 
zung für jeden CAD-Arbeitsplatz: 
In der Schule, beim Architekten, in 
der Konstruktion, als Erst- oder 
Zweitplotter. Der „Penman“ ist im 
Fachhandel oder direkt bei Com- 
pucon zu einem Preis von ca. DM 
1596,- erhältlich. 

Bezugsquelle: Compucon 
Deutschland GmbH, Germering 
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Plotter MP 2000 


Die DIN-A3-Plotter der Serie MP - 
die mit dem Prädikat „Die gute In- 
dustrieform" ausgezeichnet wurde 
— ist durch den Plotter MP 2000 
erweitert worden. Der MP 2000 
setzt mit seinen Leistungen — die 
sonst nur Geräte der gehobenen 
Preisklasse aufweisen — neue 
Maßstäbe auf dem Gebiet der 
Low-Cost-Plotier. So besitzt der 
MP 2000 standardmäßig drei ver- 
schiedene, durch Schalter wählba- 
re Befehlssätze: die des MP 1000 
(27 Befehle), des FP 5301 (53 Be- 
fehle) und eine HP/GL-Emulation. 
Das Stiftangebot besteht aus Fa- 
ser- und Keramikstiften, Kugel- 
schreiber und Tuschespitzen für 
die verschiedenen Zeichenträger. 
Seine einsetzbaren 8 Federn mit 
automatischer Stiftspitzenabdek- 





8086-Prozessorkarte 


Die Prozessorkarte C86 ist ein 
kompletter 16-Bit-Mikrocomputer 
mit eigenem Speicherbereich 
(512K) und Schnittstelle zum Ap- 
ple-Bus. Die Erweiterung bietet 
Ihnen: 

— einen leistungsfähigen 16-Bit- 
Mikrocomputer mit  intel-8086- 
CPU, 

— mindestens 128K oder serien- 
mäßig 512K Speicherkapazität, 

— ein spezielles Apple-Businter- 
face für den sicheren Betrieb, 

— alle notwendigen Teile auf einer 
Apple-Slotkarte. 

Sie ist vorbereitet für CP/M 86 und 
MS-DOS und als RAM-Floppy un- 
ter allen gängigen Betriebssyste- 
men geeignet und äußerst preis- 
günstig. Es sind fast alle betriebs- 
system-gestützten |BM-PC-Pro- 
gramme auf der 086 lauffähig, und 
das bei ca. doppelter Verarbei- 
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kung arbeiten mit 250 mm/s Plott- 
geschwindigkeit und einer Schritt- 
größe von 0,1 mm. Klare Buchsta- 
ben durch Verwendung eines 
Kreis-/Kurven-Generators, Digita- 
lisierfunktion, Vergrößerung/Ver- 
kleinerung, Schraffur beliebiger 
Flächen sowie Fond-Kommandos 
für Sonderzeichen verschiedener 
Länder und ein Selbsttestpro- 
gramm sind selbstverständlich. Ein 
6K-Speicher ist serienmäßig vor- 
handen. Der Plotter MP 2000 ist in 
2 Versionen lieferbar: MP 2000-51 
mit Centronics und RS-232-C und 
als MP 2000-11 mit GP-IB-Inter- 
faces. Wie auf alle GRAPHTEC- 
Plotter wird eine 24monatige Ga- 
rantie übernommen. 
Bezugsquelle: 

GmbH, Herrsching 


GRAPHTEC 


tungsgeschwindigkeit! Mit dieser 
Erweiterung entspricht Ihr Apple 
dem neuesten Stand der Technik. 
Bezugsquelle: Anton Peter, Berlin 


(Gekürzte Firmenmitteilungen. Bit- 
te rufen Sie die Peeker-Redaktion 
nicht wegen der Firmenanschriften 
an, die wir aus postalischen Grün- 
den nicht veröffentlichen dürfen.) 
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CAD-System SYNCAD 


SYNCAD ist ein eigenständiges 
CAD-System für den rechnerge- 
stützten Entwurf von Schalt- bzw. 
Stromlaufplänen, Bestückungsplä- 
nen, Layouts (Interaktiv und Auto- 
routing) und Bauteilbibliotheken. 
Hinsichtlich der Layout-Erstellung 
ist das Programm in drei Ausbau- 
stufen lieferbar: 


— Interaktive Entflechtung 
— Halbautomatische Entflechtung, 
— Vollautomatische Entflechtung. 


Die einzelnen Stufen können je- 
derzeit nachträglich aufgerüstet 
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werden. Das System ist sehr be- 
dienerfreundliich durch konse- 
auente Anwendung der Maus- 
Technologie und farbige Darstel- 
iung auf dem Grafik-Bildschirm. 
Der Dialog erfolgt in deutscher 
Sprache auf einem gesonderten 
Textbildschirm. Mit dem Programm 
wird eine Bauteilbibliothek mitge- 
liefert. Sie kann vom Anwender je- 
derzeit erweitert bzw. geändert 
werden. 

Bezugsquelle: syntax EDV-Bera- 
tung und Mikrocomputervertrieb 
GmbH, Oldenburg 
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220V-Steckdosenleiste 


Eine  Vierfach-Steckdosenleiste, 
die sich über eine Schnittstelle von 
Computern aus ein- und ausschal- 
ten läßt, bietet die Firma MICHA- 
EL-Datentechnik unter der Be- 
zeichnung „Computer Power 
Switch“ an. Die Steckdosenleiste 
ist entweder mit einer V24-, einer 
Centronics- oder einer C64- 
Schnittstelle ausgerüstet und kann 
von nahezu allen auf dem Markt 
befindlichen Home- und Personal- 


Computern angesteuert werden. 
Die vier Steckdosen lassen sich 
einzeln problemlos über einfache 
Drucker-Befehle ein- und aus- 
schalten. Mit dem Computer Po- 
wer Switch können Haushaltsgerä- 
te, Heizungspumpen, Lichtanla- 
gen, Werkzeugmaschinen etc. mit 
einer Stromaufnahme bis 38 Am- 
pere betrieben werden. 
Bezugsquelle: Michael Datentech- 
nik, Konstanz 
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Computerbucher 


diegehen, für Computer 
diekommen. 


ProDOS-Analyse 


Versionen 1.0.1, 1.0.2, 1.1.1 





Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 470 S., kart., DM 68,— 
ISBN 3-7785-1134-3 





Ulrich Stiehl 

Apple Assembler 

1984, 200 S., 3 Abb., kart., 
DM 34,— 

ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 


Arme Schäpers 


Bewegte 
Apple-Grafik 





DOS Toolkkit-Erweiterungen 





Arne Schäpers 
Bewegte Apple-Grafik 


1985, 305 S., 6 Abb., kart., 
DM 58,— 
ISBN 3-7785-1150-5 


Ania ANNE 33 
L_ u a m we m u 


Mit ausführlichen Ti 
Programmbeispielen P3 
Ulnch Stiehl und 


Tricks 


2; Auflage 





Uirich Stiehl 

Apple DOS 3.3 

Tips und Tricks 

3., völlig überarbeitete 


Ausgabe erscheint 
Anfang 1986 


Frank Bihler 


Applesoft BASIC 





Zips und 
Jrieks 


4 
Frank Bühler 
Applesoft Basic 


Tips und Tricks 


1985, 241 S., 40 Abb., kart., 
DM 38,— 
ISBN 3-7785-1094-0 


ee 1] : WE - w u | 


u Se 5” KISS Go RB U mr vg ne 
5 


für Aufsteiger 


Mit ausführlichen 
Ulrich Stiehl Programmbeispielen 


2. Auflage 


Ulrich Stiehl 
ProDOS für Aufsteiger 
Band 1 


2., geänderte Auflage 1985, 
208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 
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Apple-Assembler | 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 





Jürgen Kehrel 

Assembler lernen 

Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 

1985, ca. 200 S., kart., 

DM 38,— 

ISBN 3-7785-1151-3 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl  Programmbeispielen 





Ulrich Stiehl 


ProDOS für Aufsteiger 
Band 2 

1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 


Hüthig 


Apple Il 
Assembler 
Programmierung 


Wagner 





Das Assembler-Lehrbuch für 
BASIC-Kenner! 

Roger Wagner, Autor vieler be- 
kannter Software-Pakete, schrieb 
eine monatliche Kolumne über 
Assembler-Programmierung in 
der Zeitschrift SOFTALK. Der 
vorliegende Band faßt diese 
Reihe, korrigiert und erweitert, 
zusammen. Eine stufenweise 
Einführung in die Befehle und 
Strukturen der 6502 Assembler- 
sprache, mit vielen Beispielen 
von der einfachen Tongenerie- 
rung bis zum Diskettenzugniff. 
277 Seiten. 


3-89058-003-3 DM 48,-- 
komplett mit Disk 
3-89058-005-X DM 89,-- 





Ein Simulationsprogramm, das 
Sie in das Innere des 6502- 
Mikroprozessors führt. 

Sıe sehen auf dem Bildschirm, 
wie die einzelnen Instruktionen 
in Zeitlupe ausgeführt werden, 
wie sich Register und Flags ver- 
ändern. Ein unverzichtbares 
Hilfsmittel beim Erlernen der 
Assemblerprogrammierung, da- 
nach ein wertvolles Werkzeug 
beim Testen Ihrer Programme. 
Komplett mit einem 6502 Edi- 
tor/Assembler und einem Lehr- 
buch zur Maschinenprogram- 
mierung (deutsch, 150 Seiten). 
3-89058-019-X DM 129,-- 





Ampersand Verlag, Toltowar Damm 168, 1000 Berlin 37 


Name: 12222... le 
Anschlu. 
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Raster Grafik 


Stanton 


| 


Die Qualität kommerzieller Ar- 
cadespiele läßt sich mit Apple- 
soft BASIC alleine nicht errei- 
chen. Das Buch führt in die Ei- 
genarten der hochauflösenden 
Apple-Grafik ein und präsen- 
tiert schließlich eine Reihe ex- 
trem schneller Assembler-Rou- 
tinen, mit denen Sie viele Effekte 
bekannter Spiele selbst program- 
mieren können. 

Gute BASIC-Kenntnisse werden 
vorausgesetzt, eine kurze Einfüh- 
rung in Assembler-Programmie- 
rung wird gegeben. 


299 Seiten. 

3-89058-006-8 DM 49,-- 
komplett mit Diskette: 
3-89058-008-4 DM 89,-- 


mern] 


Ein professioneller Macro-As- 

sembler für die Apple I-Fami- 

lie, Neben allen Standard-Fea- 

tures bietet MERLIN u.a.: 

- Editor mit globalen Such- und 
Ersetzfunktionen 

- liest und schreibt DOS 3.3 
Text und Binärfiles 

- Unterstützt 65C02-Opcodes 

- enthält einen Disassembler 

- kompatibel mit vielen 80-Zei- 
chenkarten und natürlich mit 
Apple Ile und Apple Ilc. 

Deutsches Handbuch (170 S.) 

3-89058-024-6 DM 198,-- 
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O Vscheck liegt bei (spesenfreie Lieferung) 
O per Nachnahme (zzgl. DM 3,-- Versandspesen) 


Titel oder ISBN-Nummer 


Datum & Unterschrift 








Schaltpläne 
Gayler 





Eine detaillierte Beschreibung 
der Schaltungen des Apple U 
und Apple Ilplus. 

Wenn Sie Ihren Apple selbst re- 
parieren, Interface-Karten oder 
Schaltungserweiterungen ent- 
werfen oder einfach nur besser 
über das Innenleben Ihres Apple 
Bescheid wissen wollen - dieses 
Buch bietet Ihnen eine Fülle an 
Informationen, Schaltpläne und 
Zeitdiagramme, Theorie und 
praktische Tips. 

215 Seiten DIN A4. 


3-89058-012-2 DM 64,-- 








Apple Pascal 
Trickkiste 
DeGroat 


Eine Sammlung von Utilities für 
den Pascal-Programmierer: 
P-Code-Decodierer, System- 
adressen, File-Konverter (von 
DOS nach Pascal und zurück), 
DIsk-Zapper, verbesserte Ein/- 
Ausgabe-Prozeduren, Grafik- 
Routinen, Textformatierer und 
viele wichtige Informationen, 


Tips und Tricks. 

248 Seiten. 

3-89058-030-0 DM 48,-- 
komplett mit Disk: 
3-89058-032-7 DM 89,-- 





rsand 


Teltower Damm 168 
D-1000 Berlin 37 
(030) 815 80 69 


Mikrocomputer 


Grafik 





Endlich anspruchsvolle Apple- 
Grafik Für BASIC-Programmie- 
rer. Mikrocomputer Grafik 

- enthält fast 80 lauffertige Pro- 
gramme, die die beschriebenen 
Konzepte illustrieren. 

- beschreibt Hidden Line- und 
Hidden Surface-Techniken, 
Skalierung, Rotation und 
Translation von Grafiken. 

- bietet eine Einführung in die 
Antmationstechnik. 

292 Seiten. 

3-89058-000-9 DM 49,-- 

Komplett mit Diskette: 

3-89058-002-5 DM 89,-- 


Rückgaberecht 


Wenn Ihnen ein Buch wider Erwarten nicht gefällt, dann können Sie es innerhalb von 
10 Tagen zurückschicken und bekommen, sofern das Buch unbeschädigt ist, den 


Kaufpreis erstattet. 


Dieses Recht gilt nur bei Direktbestellung beim Verlag und nicht für Software oder 


Begleitdisketten. 


| Apple Pascal 
Grafik 


| Swan 





22 Pascal-Programme, mit denen 
Sie die Grafikmöglichkeiten Ih- 
res Apple voll ausschöpfen: 
DESIGNER ermöglicht Ihnen 
den Entwurf eigener Zeichen- 
sätze, mit GREDIT erstellen Sie 
komplexe Bildschirm-Grafiken, 
PRINTFOTO bringt Ihre Ent- 
würfe aufs Papier. 
Darüberhinaus bietet das Buch 
Fülle fertiger Prozeduren, die 
Sie zeitsparend in Ihre eigenen 
Programme einbauen können. 
280 Seiten. 


3-89058-009-2 DM 49,-- 
komplett mit Disk: 
3-89058-011-4 DM 89,-- 





Applesoft 
Trickkiste 
Golding 


Alles, was Sie bei Applesoft bis- 

her vermißt haben: 

- Eine INPUT-Routine, mit der 
Sie auch Kommas und Doppel- 
punkte eingeben können 

- Ein PRINT USING Kom- 
mando für formatierte Ausgabe 

- eine schnelle GARBAGE 
COLLECTION 

und viele andere nützliche Utili- 

ties, dazu detaillierte Informatio- 

nen über die Arbeitsweise des 

BASIC-Interpreters, Einsprung- 

adressen, Systemvariablen. 

304 Seitem. 


3-89058-033-5 DM 44,-- 
komplett mit Disk 
3-89058-035-1 DM 89,-- 





Apple ProDOS 
Handbuch 
Worth 





Don Worth und Peter Lechner 
sind die Autoren von "Beneath 
Apple DOS", der Bibel aller 
DOS 3.3-Benutzer. In ihrem 
neuen Buch haben Sie sich Pro- 
DOS vorgenommen und mit der 
ihnen eigenen Gründlichkeit 
zerlegt. Ausführliche Beschrei- . 
bung der Arbeitsweise, des 
"MLI" und des BASIC.SY- 
STEM. Das Standardwerk für 
jeden ProDOS-Anwender. 

270 Seiten. 


3-89058-036-X DM 46,-- 
komplett mit Disk 
3-89058-038-6 DM 89,-- 


